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INTRODUCTION 

This book is a mixed eoilection of games and useful programs 
demonstrating the capabilities of the VIC-20. 

The novice home computer user will find great enjoyment in 
knowing that all of the programs in this book will work. The 
more experienced and adventurous user will find the listings 
of both the games and demonstration programs to be in- 
valuable in his quest to produce his own programs. 

In some cases the user will require expansion to his VIC-20 
but most of these programs will run on a basic VIC-20. 

i have enjoyed compiling this collection and hope that others 
will gain as much enjoyment using it. 

NICK HAMPSHIRE 
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BREAKOUT 

DESCRIPTION 

This game is the computer version of the popular arcade 
game Breakout. The program includes some data at the end 
of the program which is entered into the memory. This 
machine code routine uses PEEK (197) to check if either of 
the cursor direction keys have been pressed and moves the 
bat along the bottom of the screen in the direction 
corresponding to the key pressed. This routine could be 
written in Basic but will slow the game to such an extent that 
it will become very boring. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

Aftnr typing run, the program will display a few instructions 
nuiinly explaining that the bat is moved using the two cursor 
keys. Hitting any key will start the game running. There are 
Vw/o balls to start with and the object of the game is to knock 
out as many of the bricks as possible. When all the bricks 
havfi btiHri cleared from the screen, a new set appear and the 
game is played over again. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

120-230 Set up display. 

280-310 Choose random ball start position and direction. 

320-340 Display score on top of screen. 

3B0-390 Input for another game. 

430 Turn off sound and call M/C routine. 

480-550 Check for ball hitting object. 

880-910 Check if ball has hit blocks. 

1050-1110 Print instructions. 

1160-1320 POKE data for machine code into memory. 



10 REM BREAKOUT 

£0 REM *******-*****##*******##*»-********i+i***** 

3Gi REM 

48 GOTO 1160 

50 HR=36S73 ■ S 1 =36376 ■ S2=36S77 

6H1 POKEHfl.. 15 

70 GOSUEloSO 

30 P0KE36379.> i £ = P=B ■ Efl=5 

90 REN 

100 REM DISPLflV 

110 REfl 

120 PRiHT":^a "; 

130 F0RI=1T021 

14a pRiHT"aa s^ as a^riiii " 

150 NEXT 

160 pRiHT"aa M a a ■* ■■!■ a 

170 PRIHT"HsaW" :flt="El I I I I I I I I I I" 

180 PRIHT"«i"fit-PRINT"H"Fl* 

190 PRINT">ia"fl$-PRIHT"H"flf 

£00 PR I HT " Ma" fl* : PR I NT " HI" R* 

210 FRINT"liCS"flt:PRIHT"M"fl* 

220 pnKE32 . : POKEHfl . 1 5 ^ R a ) = 1 26 : Fl ( 2 )= 1 0S 

230 H':3:J = 123:fl<4) = 124:R=0-O=0:V=23:V=l 

240 REM 

250 REM RRNBOn BhLL STBRT POSITION 

260 REM RHD DIRECTION 

270 REM 

280 Z=7945+RNIi<l>*20 

290 G=IHT^'RNEO>*2? 

300 IFG=1THENR=1 

31 S IFG=eTHENR=3 

320 POKES 1 .. : PR I HT " ,TM;f»K;CORE " SC 

330 PRINT"rK!|i»BMMHi»»SlEflLL HO"Efl 

340 IF EFIO0 THEM 430 

350 PRINT" «RNuTHER GRME ?".: 

360 GET H*:IF R$="" THEN 360 

370 IF Rf="V" THEN RUN 

330 IF fl*<>"N" THEN 360 

390 PR INT "XT' -POKE 36879.. 27 : END 

400 REM 

410 REM PLflV GAME RND MOVE ERT WITH 3V3 7424 

420 REM 

430 POKES 1..0:SV37424 

440 R=R+I 

450 IF0=1THEHIFR>4THEHR=3 :Z=Z+V ■ POKEZ-V. 32 ■ GuTn430 

460 IFn=lTHEN430 

470 IFR>2THENR=1 ■ Z=Z+V : POKEZ-V. 32 

430 ;<=PEEK';z;' 

450 IFX=120THEN3m0 

500 IFX=207THENK= 1 ; GGTO870 

5 1 IF:-^=203THENK=-1 ; GLITDS70 



520 IFX=160THEN6ee 



530 IF^^=£24THEN730 

540 IFX=£28THEN590 

550 IFX<>36THENS8e 

560 ER=Efl-l :POKES2..220:FORL=I5TO0STEP-1 

570 POKEHfl.. L : FORM= 1 TO200 : NEXT ^ NEXT : GOTO220 

530 P0KE2 . fl C R > : r3OTO430 

590 V=l : POKES 1.. 220 

600 I FNOT CR=1 ORR-2 JTHEN650 

S 1 Z=2+22 ■ R-3 : V=2 l-O^l 

620 R<3> = i24:fl*:4:>=123;GOTO430 

630 IFNOT<;R=3ORR=4nHENS60 

640 Z=2+22 ; R= 1 : V=23 : 0=6 

650 Fl< 1 :3 = 126 : fi<2> = 10S : G0T0439 

660 POKES 1.. 220 

670 I FNOr C R= 1 0PR=2 :• THEH700 

630 Z=Z+1 : R=3 : V=-21 ■ 0= 1 

650 R ■; 3 > = 1 23 ; R < 4 > = 1 24 : 0010430 

700 I FNOT ( R=30RR=4 ) THEH 730 

710 Z=Z+ 1 : R= 1 : V=23 ; 0=0 

720 fl<n = 126:R<2)=108;GOTO430 

730 POKES 1.220 

748 IFHOTCR=1ORR-2>TH£N770 

750 Z=Z-l'R=3=y=2 1=0=1 

760 fl<3)=124:fl<4)-123:GOTO430 

779 I FHOT <. R-30RR=4 > THEN800 

730 Z=2~ 1 : R= 1 : V=-23 '■ 0=0 

790 fi a ) = 1 03 • fl f 2> = 1 26 : GOTO430 

300 V=0: POKES 1.220 

810 IFHOT';R=1ORR=2)THENS40 

S20 Z=2-22:R=3=V--21;0=1 

830 fl < 3 > = 1 23 : R ■: 4 > = 1 24 ; GOTO320 

34 I FNOT < R=30RR=4 > THENS70 

850 Z=Z-22 : R= 1 : V=-23 : 0=0 

r560 fl'; i ::' = 103: HC2:) = 12b = G0T0329 

370 POKES i , 200 ■• P0KE2.. 32 ■ POKEZ+K . 32 

S30 IFZ<7812THENSC=SC+7 : G0T032@ 

390 I FZ<7S56THENSC=SC+5 ; GOTO920 

900 IFZ-C7500THENSC=SC+3 ■ GOTO920 

510 IFZi7944THEHSC=SC+l 

920 POKE3S4S8+2-76S0.- 1 ■ POKE3S400+Z-76S0+K, 1 

930 I FSC/320= I NT C SC/320 > THEN i 70 

940 IFV=1THEN808 

S!^0 V~l 

960 IFHOT<R=iORR^2>THENS'90 

970 Z=Z+22 ■■ R=3 ■ 'v'=21 ■ 0=1 

930 R';3>=124:Hf"4>=123:GOTO320 

990 I FHOT ( R=30RR=4 > THEN 1 050 

1000 Z=Z+22 : R=l : V=23 ■ 0=0 

1 i H < 1 ;■ " 1 26 ■■ fK 2 > = 1 0y -• GOTO320 
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02e REM 

030 REM INSTRUCTIONS 

Q4£1 REM 

i35e P0KE363?9.42:PRrNT":iiK*** VIC EREFlKOUT *** 

06 w print":«Wt'ou move with : 

070 PRINT">!5!3TCRSRt MOVE LEFT 
030 PRIHT":?)^:RSR^ MOVE RIGHT 
090 PRIHT'-flBftHIT RNV KEV 
100 GETR:t;IFfi5==""THEH1100 
110 RETURN 
120 REN 

130 REM MACHINE CODE ROUTINE TO CHANGE 
140 REM POSITION OF THE EAT 
150 REM 

1 60 pnKE251 : 235 ■■ P0KE252,. 31 
170 POKE56..23:RUH11S0 
180 F0RI=7424T0?48S 
1 90 REflDH : POKE I .. fl = NEXT = RUN50 
200 DflTR164..25M73. 197.0 
210 DflTH201.. 23. 203.. 15.169 
220 I1HTA249..5S.237..5S.29 
230 IJATR197.I 251. .240. 16.200 
240 DATh 132. 251. 20S. 11.201 
250 IiATR31,.20S.7. 192.22S 
260 DAT A24G .3.1 3fc" . 1 32 . 25 1 
270 rinTA172.53..29.185.S9 
230 DAT A29 .■ 1 45 . 25 1 . 1 36 . 1 6 
290 riATA24S.. 234. 169. 160. 141 
300 DATA223. 31 ..169.224.141 
310 riflTA249. 31. 96. 4. 96 
320 riflTA120. 120.120.96.0 
REHDV. 
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FIND THE WORD 

DESCRIPTION 

Find The Word allows the user to input a word length, the 
computer will choose a word from the data statements of that 
length and put it in a matrix with a load of random letters. 
The user then has to find that word in the matrix. The word 
may be horizontal, vertical, or diagonal and may be 
backwards. If the word has not been found after three 
guesses, the computer will give clues by telling the user the 
first letter of the word, the second, etc until it can give no 
more clues without giving the whole word. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, the program will ask if instructions are 
required, if the answer is yes then a page of instructions will 
be printed on the screen. The game will then start by asking 
how many letters in the word. The variable M chooses 
whether the word is diagonal or not. Then the guessing of 
the word begins. When the word has been guessed or the 
computer has run out of clues the score for that word will be 
printed along with the running total. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

250-350 Input length of word. 

400-470 Choose a word of that length. 

510-900 Create grid and put the word somewhere in the 

grid. 
940-1030 Print the grid on the screen. 
1070-1420 Guess at word and check to see if the guess is 

correct. 
1470-1590 Guessed the word or no more clues available. 
1630-1640 Data for three letter words. 
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1680-1700 Data for four letter words. 

1740-1760 Data for five letter words. 

1800-1830 Data for six letter words. 

1870-1940 Print instructions. 
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19 REM FIND THE WORD 

20 REM ******.***-************************»ti***r* 

30 REM 

40 S=l 

50 P=Q-P0K£36S79,42 

60 Tt="RECriEFijHIJf<LMN0PQF:STUVWXV2" 

70 DIMR*<8>S) 

80 PRIHT"r3J»** FIND THE WORD ***" 

^0 PRINT" DO VOL! WANT INSTRUCTIONS ?" 

1 00 GETRf : I Ffl$= " " THEN 1 00 

lie IFFlf="V"THEHGO3UElS70 

1£0 P=0:GOSUE250 

130 GOSUB4e0 

140 GOSUB510 

150 G03UE94S 

lee GOSLtB1070 

170 IFO=0THENGOTO150 

130 GOSUE1470 

190 IFO=0THENG0TC1590 

200 GOSIJE13S0 

216 GOTO 120 

220 REM 

230 REM INPUT WORD LENGTH 

240 REM 

250 PRINT 

260 M=IHTtRND<l>*2)+l 

270 IFM<1THENGOTO250 

280 IFM>2THENeOTO250 

290 PRINT 

300 PRIHT"nai!HOW LOm IS THE WORD" 

310 PRINT "LENGTH (3 TO 6) ?" 

320 G£Tfl$ ■ I Ft=lt=: " " THEH320 

330 L=VRHft*> aFL<3THEH290 

540 IFL>6THEH290 

350 N=L+1 

360 RETURN 

370 REM 

380 REM CHOOSE fi WORD OF THAT LENGTH 

390 REM 

400 RESTORE 

410 REftDfl$ 

420 IFLENCflt)OLTHENGOTO410 

430 Q=RND<7>*15+1 

440 F0RX=1T0Q 

450 REFIDW* 

460 NEXTX 

470 RETURN 

4S0 REM 

4f'0 REM CREATE OR ID OF RANDOM LETTERS 

500 REN 
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520 R=IHT-::RHD';" 1 >*N+1 > 

530 K=IHTt:RHDa>*H+l> 

540 IFR<=2ORR>=N-1THENGOTO530 

550 I FK<=20RK:>=N- 1 THEHGOTOSSy 

560 X=X+1 

570 GOTO520 

530 F0R>^=1TQH 

550 F0RV=1T0N 

600 Q^IMT'^RNDa >*26+l > 

610 Q*=MID:f:af.Q.l; 

620 R$C^ ..'!')=£!$ 

630 NEXTV 

640 HE>^.JK 

650 I FN=2THENGQTi:i3 1 & 

660 IFR<=20RR>=H-1 THENGOTQ740 

670 IFK<=2THENKR=1 

680 IFK:>=H- 1THENKR=-1 

690 FORJ<=lTOLEfKW:r^ 

700 Rf < K. R.-) =M Ilit- < m .. X. 1 ; 

710 K=K+KR 

720 MEXTX 

730 RETURN 

740 IFR<=2THENRR=1 

750 IFR>=N-1THENRR=-1 

760 FLiRX=lTOLEHaj$;' 

770 R-^- ■; K .> R .■) =r'i im-< m .. y. .. i ;■ 

780 R=R+RR 

750 MEXTX 

S00 RETURN 

S10 IFR<=2THEHRR=1 

S20 IFR>=N-1THEHRR=-1 

830 IFK<;=2THENKR=1 

840 IFK>=W-1THEHKR=~1 

850 FnR,^i;=lTOLEN<N*; 

360 R* a; > R > =f-1 1 II* t W* . X .- 1 > 

S7G K=K+KR 

380 R=R+RR 

Syg NEXT^^ 

500 RETURN 

510 REM 

520 REM PRINT GRID ON SCREEN 

930 REM 

540 PRINT"n*=================== 

550 F0RX=1T0N-PRINT" "; 

S6S F0RV=1T0N 

579 FRINTRfC<.V>;" "; 

9S0 HEXTV 

550 PRINT 

1000 NEXTX 

1010 pRINT"===================!n 

1020 print":(!LENGTH=";l 
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.030 RETURN 

046 REM 

;e50 REM GUESS AT WORD 

:0fc'e REM 

[079 PRINT">(l-JHFiT IS THE UORD ? 

.090 IHPUTP* 

090 p=p+l 

100 IFfi*=WtTHEHGOTO13'00 

110 PPIKT")!EORRV Cia-JROHGr?!" 

120 IF(P-2:>=LTHEKGOTO1240 

130 IFP:>2THENGOTO1170 

.140 PRINT ".WOT VERV GOOD" 

i 50 0=0 ■■ FORKK= 1 TO3000 - NEJ^T 

160 RETURN 

.170 HJ?=LEFT:ta-Jif..P-2) 

180 PRINT"Wt'0U heed HELP." 

.190 IFP>3THEH1220 

1200 PRIHT"Sm-IE FIRST LETTER IS":PRINTH$ 

L210 GOTO1150 

1220 PRINT":i!r'HE FIRST" .;P-2; "LETTERS" :PRINT"flRE 'SH$ 

._30 GOTO 1150 

1 240 PR I \\r " MJROHG . VOU D I D " : PR I HT " MOT GET THE UORD 

1:50 PRINT "RIGHT. 
1260 PR I NT" MIT WAS ■a"JW*"Rl 
L 270 FOR I = 1 TO3000 ■ \iEKT 
L280 0=-l 
1250 RETURN 
1300 PRINT 

L310 PRIHT"W3n"HflT IS IT 
[320 PRIHT".Wt'OU got IT IN"P 
L330 PRINT"TRV" 
.340 IFP^ITHEHPRIHT'-TTRIES" 

350 FORI=1TO3000:NEXT 
1360 0=1 
L370 RETURN 

3S0 S=S+t 
L390 RR=0 
1400 KR=e 
1410 P=0 
[420 RETURN 
L430 REM 

1440 REM GUESSED THE WORD OR NO MORE 
L450 REM CLUES flVfllLflBLE 
1460 REM 
[470 PRINT 

[430 T=T+CL/P>*<L/P>#M 
[435 2=1 NT < <. L/P '> * < L/P > *M > 
14^0 PRINT":7THE SCORE FOR THIS" ^ PRINT" WORD^ ";Z 

5fi0 PRINr"PKMflXIMUM SCORE" ;PRIHT"mS"; INT<L*L*M) J "ID" 

r. I n PR I \\X " mo TflL SCORE " I NT t T/S > 

Vv-i-i r'RIMT"WnRHOTHER GO ? 
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5::-:ri GETAf : lFfl$=""THENl55Ht 
540 PRINT 

550 IFR-|="V"THEN120 
5bS IFR*="H"THEH1530 
570 PRIHT";!!Tt' or H PLEfiSE.Tn 
58y 00101530 

590 PRIHT"3n" ; ■■ POKE:3bS?9, £7 ■ END 
600 REM 

610 REM THREE LETTER WORDS 
620 REN 

b:?0 DHTfl333 .. T I N .. GET .. THE . S I T . CflT . DOG .. ONE . TWO 
640 DfllflS I K .. TEN ..FIT,. EET .. SET .. E I G , ERD 
650 REM 

660 REM FOUR LETTER NORDS 
67*3 REM 

680 riflTR4444 .. FOUR .- FIVE ,. COOL .. MAKE.. HOLE.- POSH 
690 DflTPlHIHE.. CLfiP.. COLD. OOuD, YOUR. WHAT. READ 
700 DRTRVflST . LRMP .. DEUL 
710 REM 

720 REN FIVE LETTER WORDS 
730 REM 

740 riHTn55555 .. CH I PS . GRERT .. CLERR .. GLRSS. MAKER 
750 DRTRSPDOL .. SLEEP , DEfiST .. THREE. SEVEN .. STOOL 
760 riRTREIGHT.. PLRNT.. RRDRR. RRDIO.- UflTER 
770 REM 

7S0 REM SIM LETTER WORDS 
790 REM 

S00 DRTfl666666 .. RRCT I C .. GUI TflR .. M I NUTE .. M I DDLE 
SIG DRTRPISTOL,. RNIMflL.. TOWERS.. PERMIT.. FIRING 
820 DRTRDRRGON .. ROEOTS .. ROCKET .. MOSR I C .. MEMORV 
830 DRTRERNDIT 
S40 REM 

S50 REN INSTRUCTIONS 
i360 REN 

S70 PR I NT " :^I H3TRUCT I ONS ■ 
380 PRIHT":!<FIND THE IJORD IS fi 
330 PRINT "?}^RME WHERE VOU HRVE 
900 PRINT ":pITO find R HIDDEN WORD 
910 PRINT ".WIN fl GRID OF LETTERS 
920 PRIHT".PJ::LEFfR ^' 
33<^3 GETfll: ■■ IFflf = " " THENi930 
940 RETURN 
RERDV. 
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SPACE PIRATES 

DESCRIPTION 

In this game, the player is in control of three tazer gun bases 
at the bottom of the screen. The three bases are fired with 
the use of the keys A, S, D respectively. The space pirates go 
across the screen in groups of five and the player has to 
shoot them out using the iazer guns. If the space pirates get 
past the bases, they start to destroy the cells on the right 
hand side of the screen. When they have passed through the 
cells they appear on the left side again but lower down the 
screen. When the space pirates have all been annihilated, 
another set of pirates appear but in a different form. The 
game is over when all of the cells have been destroyed. 
This program makes good use of sound and user definable 
characters. 

EQUIPMENT REQUIRED 

This program works on an unexpended VIC-20 but will not 
work with expansion. 

RUNNING THE PROGRAM 

After typing run, the program will display which bases are 
fired by which keys and will pause while the character 
generator is being moved. The game will then start. 

PROGRAM STRUCTURE 

Lines of interest in this program are as follows. 

80-120 Display instructions. 

130-140 Limit top of memory. 

150-220 Move character generator and set up other 

characters. 
230-570 Play the game. 
580-620 Input from keyboard. 
880-960 Change the character for the space pirates. 
1040-1180 Game over, play again ? 
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10 REM SPRCE PIRATES 

22 REM m't^^*M*Mmm-i^*m^m^'^^^'¥*T¥ii^wm 

30 REM 

4S P0KE3687S>15 

50 1 2=FEEK C 329 > : 1 9-PEEK < 826 > 

6S IFI9O0THEN138 

70 VI=36S64;PDKEVI+5.240:POKEVI+15.219 

74 REM 

75 REM IHSTRUCTI0H3 

76 REM 

Se PRIHT"r»5PRCE BUCC RHEER S" 

30 PRINT" " 

100 Tt-="*lifi - BASE 1 FIRE" :GOSLiE 1029 
110 T-f=")»E - ERSE 2 FIRE" •■GOSUE 1020 
120 T*="i!*tD - ERSE 3 FIRE" = GOSUE 1020 

124 REM 

125 REM LIMIT TOP OF MEMORV 
12e REM 

130 POKESe. PEEK<:56:i-2 •• P0KE52.. PEEK<5S>-2 
140 POKES l.PEEKC55>:CLR 

144 REM 

145 REM MOVE CHRRRCTER GENERATOR 
14fc. REM 

1 50 riT=32763 : VI=36364 = CC=256*PEEKC52>+PEEKC51 > 

1 60 FOR I =0TO5 1 1 ■■ POKECC+ 1 > PEEK < riT+ 1 ; : NEXT 

170 F0RI=464T049c-REflDJ 

ISe POKECC+I.. J^NEXT :P0KEVI+5.255 

190 riRTR123.. 66.. 36. 0.0. 36.. 66. 129 

200 IifiTR24.24..24.24..60. 126. 126.255 

210 riRTR64.32.31.25.57. 127.238 

220 riHTR56. 2. 4,. 248. 152. 156. 254. 1 19. 25 

^24 REM 

225 REM PLRV GRME 

226 REM 

230 I2=PEEK<829) ■ I9=PEEK<826:) ;S=PEEK<827>*25 

240 IFI9>0THEHS=S+c;pEEK<826)-l >*6300 

250 52=:5 : c-iOSUBS70 : V=25 

260 T#="MOTHERSHIP-<=-?MVSTERV" 

270 T2*="#l PIRRTE-e-25" 

230 IFI9=0THEHI2=50 

290 POKE V I + 1 5 .. 8 : PR I NT " «1SC0RE " S 

300 PRINT" " ;POKE3105.59 

310 PRINT; PRINT :F0RI=1T05 
320 PRINT"Sa5 .1 r r r r:<": PRINT 
330 NEXT : POKE3099 . 59 ■ POKESl 02 . 59 
340 Z ( 1 ::«=7750 : Z';2) =7334 

ZC3>=7S78 ■ Z<4)=7922 ^ Z<5>=7566 

160 PR I i\T '• ■nmmnmiumfMm.fMiatiL^m'kP i rrte bounty :i" v 

i:m FCiRT=1T05 ■■ XZ-::T>=1 . 25+RHDCTI > ■ NEXT 

FORI :- 1 T05 ■ I FI 3':' K > = 1 THENPOKEZ < K ) . 32 : 6OTO530 
390 X=RND ( K > : I FS 1 =5THEHuOSUES70 



■->'-' 
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400 IFI4=0ftNDRNDC4)C.02THENI4=l :EU=7724 

410 IFI4O1THEH430 

420 POKEEU.. 32 : EU=ELI+1 : POKEEU+l . Gl ■ POKEEU^ 60 

430 I FHOT a 4= 1 RNrtBU>=7743 > THEH450 

440 14=0 : POKEEU . 32 ■ POKEIiU+ 1 .. 32 

450 IFX<=.5THEN4S'e 

460 PCiKEZ(K::i.32:ZCK:3=ZCK:)+XZ<K) 

470 POi (EZ < K > .. ■ POKEZ < K > +30726 . 5 

4S0 GOStJE5S0 

490 IFPEEK(:Z<K)+1>O79THEN510 

500 12=12-1 :PRINT"»»«i»«WiCELLS "I2"ll " 

510 IFI2<-0THEHi040 

520 IFZ(:K»=8e9STHEHie40 

530 NEXT - GETPl*: IFR*="Q"THENn70 

540 GOTUoSO 

550 pi:iKE3faSfc"9 .. 240 = POKESS. 30 ■ P0KE52. 30 

560 CLR:PRIHT":ifi>ECflNHIKG SECTOR" 

570 PRIMT":?*ETHRDHTE "TU^RUH 

574 REM 

575 REM INPUT FROM KEVEORRD 
57fc* REM 

580 Z=PEEK<:i97> 

530 I FZ=1 7THENC=S077 ■ GOSUES30 

600 I FZ=4 1 THENl:=8GS0 ■' GUSUE630 

b 1 I FZ= 1 &THEHC=30S3 ■■ GOSUB630 

620 RETURN 

630 riM=32 ■• FORI=C-22TOC-330£TEP-22 

640 POKEI+22. MM : IFPEEK-; I-22>=0THEN710 

650 MH=FEEKa-22; : IFm=61ORMM=60THEHGOSUES20 

660 POKE I. .33 

670 IFEU=I -22THEHP0KE I .. 32 : 1 =C-330 : GOTO700 

680 FORriE=253TO250STEP- 1 

690 P0KE36375 .. BE ■ NEXT ■ P0K'E36S75 , 

700 NEXT : POKEI +22.. 32 ; RETURN 

7 1 P0KE36S75 > S : POKEI .. 32 

720 POKEI -22 . 5S - POKei+3069S , 2 

730 FORDE=200TO255 ■ P0KE36S77. HE 

740 NEXT : P0KE3fc877. : POKE I -22. 32 

750 S=S+V:31=S1+1 :PRIHT"33C0RE"S; I=C-352 

760 1 3 < K> = 1 : S2=S2+ 1 = I F3>= 1 2000THEHS=3- 1 296 

770 IFSl/2O=IHT(Slr^20)flNDSlO-0THEN970 

780 IFS2O5THENS10 

730 GOSUE370 • V= V+25 : FOR J= 1 T05 

800 I3< J)-0 : NEXT : GOTO290 

310 GOTO6S0 

S20 V= I NT < RNIi -; 7 > *4+ 1 > *50 ■' POKEEU+ 1 . 32 ^ POKEEU .■ 53 

S30 FORrE=l 50TO1 30 •■ F0KE36877. !€ 

840 NEXT : P0KE36377> O = 14=0 = POKEEU. 32 

350 S=S+V ■ PR I NT " S^CORE" S ■ POKE 1 . 32 = RETURN 

860 IFSl/20=INTiCSl/20>HNDSl<>0THEN970 
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3?ei IFS205THEHRETURN 

8Se FORI=0TO7 

S9u REflDJ 

900 FOKECC+I.J 

510 NEXT:S2=0 

320 riflTfli02.. 102.60/231. 189.60. 192.66.66 

930 BftTfl24.fc'0.126.90il26>90.i29 

940 rtftTfl66,0.60.1S9.102. 189.24..36.24 

950 IihlTR60.. 12fcv 159.254.62,34.34. 102 

960 RETURN 

970 P0KE826. i--P0KES29.I2 

930 IPS-6300<=0THEH1010 

990 P0KE827. C 5-6306 )/25 

1000 P0KE826. PEEK < 826 > +1 :GOTO550 

1010 POKE 827 .. S/25 : GOTO550 

1020 FORI=1TOLEN<T*):PRINTMID*<T$.I.O; 

1 030 F0RIIE= 1 TO70 ; NEXT : NEXT ; PR I NT ■ RETURN 

1034 REM 

1035 REM CELLS DESTROVED. GAME OVER 

1036 REM 

1040 POKES 102. 58 ■ POKE8105. 58 : POKE8099. 58 

1050 PR I NT" rMfflWIIIiiMBt #####«####" 

1060 PRIHT">tH(iftI###CELLS###" 

1 070 PR I HT " ^iftHWDESTROVEDtt " 

1080 PRINT"«lliil#tt#######tttt" 

1090 FORDE=255TO120STEP-1 

1 1 00 P0KE36S77. IE : FORD= 1 TO30 ■ NEXT ■■ NEXT 

1110 POKE36S77.0:pRINT":XflNOTHER GCi?<*tVH>" 

1120 P0KE36879. 76: POKE 1 98.-0 

1 130 GETflf : IFfl$=" "THENl 130 

1140 IFfl*O"H"THEH1160 

1 150 P0KES26> : P0KE827. 8 ■ P0KES29, 9 ■ GOTOl 179 

1 1 60 P0KES26 . : P0KES29 . : P0KE827 . • G0T055C 

1170 POKE56.30;PRINT"v"B" 

1 1 30 P0KE3eS69 . 240 ^ P0KE36379 . 27 ■ CLR ■ END 

RERIiV. 
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VIC VIC 

DESCRIPTION 

VIC VIC program demonstrates how the display can be 
manipulated to create interesting effects by changing some 
of the control registers. First printing a grid of colours and 
then by manipulating the control registers the display is 
'pulled' into the centre of the screen and then back out. A 
coloured VIC appears on the screen and the same thing 
happens. This will continue until stop/reset is hit. 

EQUIPMENT REQUIRED 

Basic ViC-20 with no expansion. 

RUNNING THE PROGRAM 

Type run and watch the effects produced by the program. If 
the program is stopped, the screen will stay as it was when 
stopped until stop/reset is pressed. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-150 Print coloured grid on the screen. 

160-330 Print large 'VIC on the screen. 

340 Go back and repeat. 

360-430 Manipulate the registers for the coloured grid. 

440-510 Manipulate the registers for the large 'VIC. 
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10 REM VIC VIC 

20 REM ■****************************************: 

30 REM 

40 PR I NT "T'; ■F0RI=1T05 

50 PRINT":* ^ fl k a ";:NEXTI 

60 F0RI=lTu4 

76 PRINT":*! Ei S n I ";:NEXTI 

8Q F0RI=lTu5 

90 PRINT" at S a k JI ":-NEXTI 

100 FURI=1T04 

110 PRINT" :■*:! fii S fl ■ ".i^NEXTI 

120 FURI=1TU4 

130 PRINT" :a 

140 PRINT" :-ia 

150 PRINT":i:« 

lb0 FGRI=0TG4 

170 PRINT"r« 

180 PRINT" :■*» 

190 PRINT" :a 

200 PRINT" EH 

210 PRINT":a 

220 PR I NT ":-!:< 

239 PRINT" :« 

240 PRINT" :-):< 
250 PRINT" :« 
260 PR I NT "a^ 
270 PRINT" :-J:i 
230 PRINT" :« 
290 PRINT" a^ 
300 FuRI=0TO3 

310 PRINT" :-J^ "; :HEXTI 

320 PRINT" a:< ii"; 

330 GObUE440 

340 Gi:iTu40 

350 END 

360 F0RI = 1T022: P0KE3fa366.. 123+1 = PDKE3636?.. 2+2*1 

370 PUKE36364.. 34-1 : P0KE36365. 32-2*1 ■ t-lB<ll 

330 FORI=0TU255 : HEaTI : R=INTkRNrK: 1 >*7; 

390 pnKE36S79. 25+R ■ FORI=0Trt255 : HEXTI 

400 FnRI=22TCilSTEP-l ;P0KE363eS. 128+1 

410 P0KE36367. 2+2*1 

420 PUKE36S64 > 34-1 : PuKE3bS65. S2-2*I 

430 NEXTI- RETURN 

440 FuRI = lT022 ■ PCfKE3SS6b.. 123+1 : P0KE36Sb?. 2+2*1 

450 P0KE36364..34-I :POKE3b865.. o2-2*I : NEXT I 

460 Fi:iRI=0Tu933 ; NEXTI ; R=INT':;RND< 1 :'*7> 

470 P0KE3637y ,. 25+R ■ FOR I =0TO9£'9 : NEXT I 

430 FuRI=22Tul£;TEP-l -PuKESeSbb,. 12S+I 

490 pnKE3b367 ,. 2+2* I 

500 P0KE36Sb4..34-I :P0KE36865> 32-2*1 

510 NEXT I : RETURN 

RERnV. 



4 




f1 


k 


^1 


".; -NEXT I 


4 




iH 


k 


> 
i[ ■ ■ 


y" : ■ GOSUI.'3b0 
NEXT I 


^ 


s 




S 4 


n 


:( ■'.; 


q 


fl 




S :i 


,1 


:i ".: 


:* 


& 




S 4 


^ A 


n "; 


4 


a 




3 a 


^ ^ 


:n ", 


fl 4 


fl 




3 ^ 


^ zi 


II ' 


i9 :t 


a 




3 St 


^ :i 


J 


a :< 


J! 




3 =i 


^ :< 


II • 


fl 4 


ff 




3 :4 


;i :< 




a 


:i 






3 Pi 


^ "; 





4 




3 :^ ff 


I fl 


:ii ".; 


s 


^ 




3 4 


n 


a "; 


a ; 


4 




3 4 


[1 


^ .1. 



24 



BIRDS DEMO 

DESCRIPTION 

This program is a demonstration of user defined characters 
and real time animation. Displayed on the screen is a sea 
view— a cloud in the top right hand corner and sea with 
waves on the lower half of the screen. Attractively coloured 
birds are soaring over the sea. 

As the display stops moving and a tune begins to play, a 
missile is fired from under the sea and shoots down a bird 
before beginning all over again. 

EQUIPMENT REQUIRED 

Basic VIC'20. 

RUNNING THE PROGRAM 

When loaded type RUN and watch the display appear on the 
screen. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 

50-30 Display introduction to program. 

130-160 Put character white in every position on the 

screen. 
170-190 Set character to a space, 
240-320 Change character 6. 
340-420 Put colours yellow, white and blue for three 

birds on the screen. 
430-510 Put birds on the screen. 
520-590 Change character 2. 
610-700 Display sea, birds and cloud. 
740-790 Change character 5. 
800-980 Change characters 1-7 using data at end of 

program. 
1290-1450 Character data. 
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10 REM BIRDS HENG 

^0 REM 

2.ilf REM 

4ri V I r:=9* 1 6 13 ■■ POKE V I C .. 1 1 : PR I NT "7}" ■ PR I MT 

SG PRINT"^! IiEHGNSTRRTION OF" 

60 PRINT" USER-IiEFIMED" 

7tJ PRINT" CHRRRCTERS RHU RERL-" 

SG PRINT" TIME BHIMRTION.: " 

:-)C^ FORI = lTO6ti0Gi:NE^a I 

100 VM=7t3Q 

110 CHVE- 38400 

120 CM=VM-?12 

130 FOR R=e TO 5oe 

140 POKE VM+fl., 

150 POKE CNVE+fl.- 1 

160 NEXT R 

170 FOR H=0 TO 7 

130 POKE CM+fl.. 

190 ne;^:;t h 

200 FOR fl=0 TO 7 
£10 POKE CM+56+R.. 16 
£20 NEXT H 
£30 POKE VIC+5.255 
240 POKE CM+b2j5e 
250 POKE CM+4S.. 24 
260 POKE CM+49.. 153 
276 POKE L:M+5y.90 
2-Pi POKE L:N+51.fc'G 
2-^0 POKE CM+52.90 
300 POKE CM+53; 1&5 
310 POKE Cri+54j60 
320 POKE CM+55.126 
330 F0RTT=1T05 
340 POKE CHVE+3yj? 
350 POKE CNVE+31.7 
360 POKE CNVE+32;7 
370 POKE CNVE+6?. 1 
330 POKE CNVB+68.. 1 
390 POKE CNVB+69.. 1 
400 POKE CMVB+205.6 
410 POKE L:HVE+206>b 
420 POKE CNVE+207.. 6 
430 POKE VM+30.. 1 
440 POKE VM+31..2 
450 POKE VM+32..3 
460 POKE VM+67.. 1 
470 POKE VM+63.2 
430 POKE 'v'M-t-6-3 .. 3 
490 POKE VN+205.. 1 
500 POKE 'v'M+£06.. 2 
'"110 rOKE-: VMf-207.. 3 
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520 POKE CM+16.. 125 
=^r-.'t^ POKE CM+17.. 60 
540 PiIiKE CM+13.. 15:}: 
55ti POKE CM+13.. 255 
5f-"0 POKE CM+20.. 255 
570 POKE CN+21.. 126 
5Rfl POKE CM+22.. 24 
530 POKE CM+23.. 24 
600 POKE VIC+15..239 

f-: 1 F'R I HJ " siBirteiWdHifliiiisiuiaiiiitiiiPMJiJ" .; 

620 pRINT"tflCflCRCRCFlCHCRCRCflCFlCflC" .: 

630 PRIHT"S(3flCRCRi5@ei3CRCRa@CRCi3flC".: 

640 PR I NT " k@i5HCi5i5@CHCRCRii!RCRCilSi]! " ; 

650 PR I NT " Bi5i3'5RCHCflCeaRCRCiluRCeiiii5 " .: 

660 PRIHT"w::HC@eCRi::ii!MCflCHi3RCeHCRe" ; 

670 PRINT"SS5l3flCRCfli^i5CflC'5flCHi5i5i^HO" .; 

>-";y0 PRINT'' i3sftMPl"9&a@iMiriBCSilflJiJ[ia0iii!i?RECSBiiiaaiE:aHE 

700 pRiNT"Eiiriririri;(!Si*'iBaiEriDriri;t!SGiiEriri:5aE" 

710 FOR fi=0 TO y 
720 POKE CM+32+R.255 

730 nej-;t R 

740 PORE CM+42.i27 

750 POKE CM+43. 127 

760 POKE l:M+44..63 

770 POKE CM+45.31 

7S0 POKE CM+46. 15 

750 POKE CM+47.3 

300 FOR Z=l TO 5 

310 RESTORE 

829 FOR R=l TO 7 

330 FOR E=0 TO 7 

340 RERIi C 

350 POKE CM+3+E.C 

360 RERIi C 

370 POKE CN+24+E.C 

330 HE^^T E 

390 HEftT fl 

930 FOR H=l TO 7 

910 FOR E=0 TO 7 

920 REhD C 

930 POKE CM+o+E.C 

940 REhD C 

950 POKE Cn+24+lwC 

960 HEYJ B 

970 HE^J R 

930 he:^;t z 

990 FOR R=l TO 12 
1000 REhIiE^REhDC 
1010 POKE VIC.+12.E 
1029 POKE VIC+14.. 15 
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039 FOR X=1T025*C:HEXT^': 

040 FOR V=14 TO Q STEP-1 
050 POKE VIC+14..V 

eey NEXT V 
070 READ C 

0S0 FOR X=l TO 25*C:HEXTX 
090 NEXT Fi 
100 POKE VIC+12;0 

110 PRINT" iSflBWWafiMeWPWfllBKWMO Wii>»if *^ " J 
120 FOR X= 1 TO 5e-NEXT:PftIHT"fcJIRr3"; 
130 POKE VIC+14/15 
140 FOR V=l TO 7 
150 GOSUE 1260 
160 NEXT 

170 PRINT"IIW5F@"J 

1S0 FOR X=l TO 20-NEXTX:PRINT"liII@i5e" 
150 POKE VrC+13,179 

200 FOR V= 1 5 TO STEP- 1 : POKEV I C+ 1 4 , V 
210 FOR X=l TO 30: NEXT X^NEXT V 
220 POKE VIC+13.0 
230 FOR X=l TO 20:NEXTX 
240 FOR X=l TO700:NEXT 

250 NEXTTT:FOR I=lTO6000:HEXTr POKE36S69,240:RUN 
260 PRIHT"II@Tlllj"; 
270 POKE VIC+13.240+V 
2S0 FOR X=l TO 45: NEXT: RETURN 
284 REM 

2S5 REM CHflRfiCTER DflTfl 

290 riRTfl0.0.0.0.0.0.0^0'3. 192> 15>240.. Ii2.. 14. 128.- 1 
300 IiftTfla. 0. 0.0. 0. 0. J . 128. 3. 1 92.. e0> 60,. 192. 3. 0.. Q 
310 IiflTflO. 0. 0.0. 0.0. 1.128. 15,.240. 240. 15. 0.0. 0.0 
320 DATfi0.0.G.0.. 1.. 123.255.255.1. 123. 0.0.0.0. 0..0 
330 DFITR0. 0. 0. 0. 240. 15. 15. 240. 1 . 123. 0. Q. 0. 0. 0. Q 
340 DftTR0.0> 192.3.60.60.3. 192. 1. 128.0.0. 0.0.- 0.0 
350 riRTR12S. 1 . 1 12. 14. 15. 240.3. 192. 0. 6. S. 0. Q. 0. S. Q 
360 riflTfll2S.. 1. 112. 14. 15.240.3. 192.0.0.0.0.0.0.0.0 
370 DRTfiS. 0. 192. 3. 60. 68. 3. 192. 1 . 12S. 6. Q. 0. 0. 0. 
330 IfflTfl0. 0.0. 0. 240 .15.15. 240.. 1 , 1 28 . Q . 0. . . . 
390 DRTR0. 0. 0. 0. 1 > 123. 255. 255. 1 . 123. S. 0. 0. 0. 6. 
400 DRTF(0.0.0.0.0.0.1. 128. 15.240.240.15.0.0.0.0 
410 DFiTfi0.0..0.0.0.0. 1. 12S.3. 192.60.60. 192.3.9.0 
420 DRTRS.Q. 0. 0. 0. ©.0. 0.3. 192. 15. 240. 1 12. 14. 123. 1 
430 DflTR 213. 8. 2. 21?. 8. 2. 204. 3. 1.198. 1.1. 191. 2.1 
440 DRTR179.S.2. 170. S. 2. 179.4. 1 
450 riRTfll91.1. 1.193.1. 1.213.3.1.217.15.0 
REflKV. 
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RHINO 

DESCRIPTION 

The aim of the game is to make your way through the jungle 
while avoiding wild and dangerous rhinos. A map of the 
jungle with the position of the trees, the house and the 
players current position are displayed attractively on the 
screen. 

The opponents — the player and the rhinos — are hidden from 
each other by dense jungle. Once the rhino has seen you, it's 
position is/are (depending on how far into the game the 
player has ventured) displayed and then the race is on. The 
rhino will charge, moving one step to each of the players. It Is 
up to the player to escape amongst the trees; seemingly an 
easy thing to do, but rhinos are very smart critters. If a rhino 
catches up with the player, its wham: and the game is lost. 
Each time the player outwits the rhinos more come to their 
aid, until the player has to avoid a maximum of 20 such 
beasts. 

Without giving too much away a tip for the player is to try to 
trap the rhino in a downward facing U-shaped group of trees. 
The player will be able to move diagonally out of the area but 
the rhinos remain feeding on their frustration. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

This program wili only work with 3K expansion if all the REM 

statements are omitted. 

After loading type run and follow the instructions. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
120-130 Limit the top of memory and dimension arrays. 
200-3170 Play the game. 
770-1090 Set up display. 
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1130-1400 Move the man in the required direction. 
3210-3270 Set up graphics characters. 
3310-3390 Character data. 
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10 REM RHINO 

29 REM ***.+*■**************■********■******-******* 

30 REM 

40 REM THIS PROGRRM WILL NGRK WITH 3K 

50 REM EXPflNSION.. PROVIDED THE REM 

Sm rem STflTEHENTS RRE LEFT OUT 

70 REM 

30 POKE 900.. 1: REM # OF RHIHOS 

90 REM 

10fi REM LIMIT TOP OF MEMORY 

110 REM 

120 POKE 5fc'.PEEK<:56>-l m:LR:POKE 56. PEEK'; 56;' + 1 

130 DIN H < 2 ) ,. R < 20 .. 2 ) .. V 'L £0 ) ■ POKE 56 .. PEEK -: 56 ;:■ - 1 

140 GOSUE 3210: POKE 36:363.. 255 

150 PRIHT":T':F0KE S6S7y,4£ 

160 GOSUI! 730 

170 REM 

130 REM PLHV GAME 

190 REM 

200 HF=0 

210 >^=H<n :y=HC2> 

220 M="<" 

230 FRINT"aa*T'OUR MOVE ■" 

240 GET M*;IF M*="" THEM 240 

256 PRINT "ad a" 

268 I1=VHLai^> 

270 IF n=0 THEN 450 

2SQ GOSUI: 1410 

290 IF WIN>0 THEN 690 

300 GOSUE 1060 

310 Ha:J=X-HC2>=V 

520 RH=0 

330 IF HFCPEEK (900.1 THEN GQSUE 1726 

:'-:40 IF RN=G THEN GOSUB 2600 

350 IF NIH>0 THEH520 

360 IF RH=0 THEN 210 

370 FOR 1=1 TO 20 

330 IF Vaj=0 THEN 210 

390 RD=7639+22*R a . i > +R ■; I .■ 2 ) 

400 POKE HD. 62: POKE hD+30720.. 1 

410 NF=NF+1 

420 NE>^T I 

430 GOTO 210 

440 END 

450 POKE 56:569.. 240: PR INT" :^:< VOL! RESIGN " 

46m GHTO 470 

470 POKE 56.. PEEK; 56::- + 1 : POKE 36S69..£4e 

43m INPUT" «JU tOU WRNT ANOTHER GO";R^ 

4'^M IFRIGHTJCRi:.. 1 >0"N"HNDRIGHT:f CR:f . 2; O"H0"THEN5lQ 

500 FRI NT " S" : POKE 36379 .. 27 : END 

510 CLR:GnTO 120 
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52S PR I NT "3"; 

550 FOR 11 = 1 TO H-;n-2 

540 PR INT" W"; 

550 NEXT II 

5f^0 FOR 11 = 1 TO H<l;;+S 

570 PRIHT"iil'S 

530 HErtT II 

59y PR I NT "HI"; 

St^R FOR 1 = 1 TO 4 

610 pRiHT":arcHR$(69-i:^- 

S£fi FHR .T=l TO 50S:HEKT..T 
630 NEXT I 
t"40 T=TI 

bSa IF Ti-T<:i2e then oSQ 

660 PR I NT ":^".; 

670 1JIN=0 

G'iij GOTO 470 

690 PRINT ":]^ VOU WIN" 

700 IF PEEK':300><£O THEN POKE 900. PEEK<900) + 1 

710 NIN=0 

720 GOTO 470 

730 PRINT":^a4THERE ARE "PEEK^900> " RHINOS"" 

740 REN 

753 REM SET UP BISPLflV 

760 REM 

770 FOR 1=1 TO 21 

7S0 fl*="" 

750 FOR J=l TO 21 

300 p=INT'';RHDa> + .2> 

310 IFP=1 THEN flt=Fl$+"BP:<":GOTO 333 

S20 ft$=f\$+"^ ■" 

830 NEXT J 

340 PRIHTRf 

850 NEHT I 

360 PR I NTTRE C 7 > J " SSISa *" 

370 PRINTTftE<;7>.i"a ^" 

330 PRINTTHBC7> .;":■) &=^:-J a" 

390 PRINTTflB';7).i"S «" 

900 PRIHTTRBf7> :"d ■" 

410 PRINTTflBa4?; ":!!aftIsM«!!li!ftIsM" 

920 PRINTTREa3>J":! »" 

'^30 PRIMTTPlEas::':"^ ^<M k^" .: 

940 H';i>=22:H';2>=ll 

9511 FOR 1 = 1 TO PEEK'; 500 > 

960 V= I NT < RHB '■. 1 ;■ *30 > +5 

h7r :<=lNT(RNDa;*S>+S 

530 pa.. l)=X:R'::i.2>=V 

yyy D=PEEK< 7639+22*^;+'!' ;.< 

1800 IF 11=63 THEN 560 

1010 HEI^'^T I 
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1020 FOR 1=1 TO 2S 

1030 va)=Gi 

1040 NEXT I 

1050 RETURN 

10K0 IF FiES^M-5>>4 THENM=5 

1970 CS=" " 

IQSG GQSUi: 3110 

1090 Ct~ht- 

1100 REN 

1110 REM MOVE MhN 

1120 REM 

1 1 3M ON M GOTO n 50 J 1 1 30 , 1 2 1 . 1 240 . 1 2 ?0 

1140 IFM>5THEN OH M-5 GOTO 1290.- 1320. 1350.. 1330 

1150 J<=X+1 :V=V-1 

1150 GOSUE 3110 

11 70 RETURN 

llSy X=':<+1 

1190 IjUSUE 3110 

1200 RETURN 

121 Q ;^-;=x+i:v=v+i 

1220 GOSUE 3110 
1230 RETURN 
1240 V=V-1 
1250 0OSUE 3110 
1260 RETURN 
1270 uOSUE 311G1 
12S0 RETURN 
1250 V=V+1 
i300 GOSUE 3110 
1310 RETURN 
1320 X=X-1 -7=7-1 
1330 GOSUE 3110 
1340 RETURN 

1350 ;^^=x-i 

1360 GOSUE 3110 

1370 RETURN 

1330 X=X-1 :V=V+1 

ir-i'^H GOSUE 3110 

1400 RETURN 

1410 ON M GOTO 1430.'143O.1520.. 1550. 1530 

1420 IFM>5THEN ON M-5 GOTO 1530.. lfc':20. 1650. 1630 

1430 IF X=23 OR V=~3 THEN ri=0: RETURN 

1440 flri=7635'+22+ ■; K+ 1 J + '^ V- 1 .■:■ 

1450 T=FEEK':.Hli::' 

1460 IF T=b3 THEN M=0 

1470 IF T=&1 THEN WIN=2 : M=0 

1430 RETURN 

1450 IF X=23 THEN M=0- RETURN 

1 500 Hii=763y+22* < ;<■*■ 1 ) +V 

1510 GOTO 1450 

1520 IF X=23 OR V=17 THEN ri=0:RETURN 
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1530 fiD=76-39+S2*0<+l )+V+l 

lFi40 iliuTO 145U 

155S IF 't'=-3 then M=Q; return 

1560 flri=7b35+2£*X+V-l 

1570 GOTO 1450 

1530 RETURN 

1590 IF V=17 THEN n=0 : RETURN 

li^fiS flD=7633+22*:^<;+V+l 

leiu GOTO 1450 

1620 IF X=3 OR V=-3 THEN M=e : RETURN 

1 630 Rrf=?fc"S5i+2£* (X- 1 ) +V- 1 

1640 UOTO 1450 

1650 IF X=3 THEN M=0: RETURN 

1660 Firi=763y+22*(A-1 J+V 

1670 GOTO 1450 

1630 IF X=3 OR V=17 THEN M=0: RETURN 

1650 Hri=7635'+22.*<::<-l >+V+l 

1700 GOTO 1450 

17 IS RETURN 

1720 FOR I=NF+1 TO PEEK >; 500 > 

1730 IF va> = l THEN 2430 

1 740 XR=R a .. 1 ) •■ VR=R C r .. 2 > 

1750 :^<H=Ha>:VH=H<2) 

17^"0 IF (XR-MHXXVH-VR:) then 134U 

1770 IF XH<KR THEN 1S60 

1780 N=XH-XR-1 

1750 FOR ■T=l TO N 

1300 Fili=7b39+£2:*<:>:R+J>+VR-J 

1310 Ii=PEEKfRIi> 

l;=!2i^ IF 11=63 THEN 2430 

1S30 NEXT J 

1340 RN=1 

1350 V<i::' = l ^GOTO 2430 

1360 N=XR-:'<H-1 

1370 FOR J=l TO N 

1380 RIi=7639+22*';XR-J:) + tR+J 

1350 D=PEEK';hD> 

l-^MQ IF ri=63 THEN 24y0 

1510 NE^a J 

1520 RH=1 

15:^0 va;- = l ;GGTO 2430 

1540 IF VR;:>VH THEN 2120 

1550 IF XH<XR THEN 2040 

1560 N=XH->^R-1 

1570 FOR J=l TO M 

1 580 flIi=7635+22* 'i XR+ J> + VR 

1550 D=PEEK';Hri> 

2000 IF Ii=63 THEN 2480 

2010 NEXT J 

2020 RN-1 

20:];0 V O ) - 1 '■ GOTU 24^0 
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2y4e N=XR-XH-1 

2950 FOR J=l TO M 

2fibi3 Hli=7t"39+22* ; XR- j;'+VR 

£9?y ri=PEEK<Hri) 

2t-^:=:M IF 11=63 THEN 243Q 
2090 NEXT J 

21 es RN=1 

21 le Va) = l ^CiUTO 2480 

12M IF (XH-XR><:>Ot'H-VRJ then 2390 

2139 IF ^^HC-sR THEM 2229 

2149 H=XH-XR-1 

2150 FOR J=l TO H 

2 1 69 fli:i=7fc;33+22* C>^;R+ J ) +VR+J 

2170 ri=PEEKCflri) 

2150 IF ri=b3 THEN 2439 
2199 NEXT J 
2289 RH=1 

2219 V ;' I > = 1 : GOTO 2439 

2220 N=XR-XH~1 
2230 FnRJ=l TO N 

2240 RE=7639+22*(XR-J)+VR-J 

2250 ri=PEEK';Hri> 

22^9 IF D=t:3 THEN 24S9 

2270 NEXT J 

2230 RH=1 

22"^9 va::' = l :GOTU 24S0 

2399 IF XR<:>XH THEN 2436 
2310 IF VRv:VH THEN 2499 
2329 N=VR-VH-1 

23.-'^9 FuR.J=l TO N 

2340 Firi=7e33+22*XR+VR-J 

2359 B^FEEKihlO 

23f^9 IF ri=t'3 THEN 24S0 

2379 NEXT J 

23SS RH=1 

23'=50 Va> = l GOTO 24y0 

2400 N=VH~VR-1 

2419 F0RJ=1 TO N 

2420 RD=763y+22*XR+VR+J 

2439 ri=PEEKARri:5 

2440 IF Ii=63 THEN 2430 
2459 NEXT J 

2469 RN=1 

2479 Va) = l 

24S0 NEXT I 

2499 IF RN=1 THEN GOSUB 2510 

2599 RETURN 

2510 1=1 

2520 IF I=PEEfa'900) + l THEN RETURN 

2539 IF V(i:'=9 THEN 1 = 1 + 1 ^ G0TO2520 

2540 IF 1=1 THEN 1=1+1 : GOTO 2520 
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2550 IF Va-i;' = l THEN 1 = 1 + 1 ^L-iDTO £52ei 

25 ee va-r-'=i :V(i>=ei 

2570 sx=R'; i-i .. 1 ;■ : Ra-1 . 1 >=R( I > 1) : Ra . 1 >=3X 

2580 SV=Ra-1.2:':Ra-1.2>=Ra..2J:R(I..2>=SV 
2530 1 = 1-1: GOTO £53yi 
2650 FDR 1=1 TO PEEK^SOe) 

2610 xH=Ha> :vh=H';2:j 

2b20 IF V(i::'=Q THEM RETURN 

2b3e r.=Rii. i>:'T-Ra.2:> 

2640 R4:=">" 

2650 XIi=X-XH : VD=V-VH 

26f--:0 RfKl )=PEEK •:: 7633+22* 0;+ 1 )+V-l ; 

2670 RM ■; 2 y =PEEK ^. 7639+22* ■; X+ 1 ) +V ) 

26S0 RM';3)=PEEK';765y+22*':X+l >+V+l > 

2630 RM ■:: 4 :.' =PEEK >; 763y+22*X+V- 1 > 

2700 RM';6:?=PEEK;'763y+22*:^i+V+l > 

2710 RN ■; 7 ;'=PEEKt: 7635+22* (X-l>+V-l> 

2720 RM (. -3 J =PEEK ( 7639+22* < X- 1 ; + V ) 

2730 RhK 5 ;=PEEK'; 7633+22* ■:X-i::'+V+i:> 

2740 IF RM':2J=b3 flNK RM';4>=63 THEN RMa;'=63 

2750 IF RM':4;'=63 flNIi RM':S>=63 THEN ■ RM';7>=63 

27H^0 IF RhK'S^^eS RHD RMi;e;i=63 THEN Rr'l'::3>=63 

2770 IF RM<6>-63 flHD RMC2:'=63 THEN RM';3>=63 

2730 F0RJ=1 TO 3 

2730 IF RrKJJ=63 THEN 2840 

2300 IF RM';j>=60 THEN WIN=1 ^ RETURN 

2310 IF RM';J)=62 THEN 2340 

2820 OH J GOSUE 2330.2350.2370.2930.-3010 

2330 I F J>5THEN0N J-5GOSUE3030 , 3050 . 3070 .. 3030 

2340 NEXT J 

2350 MV=n0 

2360 FOR J=l TO 9 

2370 IF RN(J);:=riV THEN M=J:MV=RM<J> 

2380 NEXT J 

28SiO GOSUB 1060 

2900 Ra.. i:>=x:Ra.2>=v 

2310 NEXT I 
2320 RETURN 

2330 RM a > =RES ( Kii+ 1 :> +fiiiS ■: VII - 1 :j 

2340 RETURN 

2350 RM < 2 :■ =hES < XD + 1 '} +HES < VIi > 

2360 RETURN 

2370 RM':;3>=RES'' XD+n+RBSvyC+l > 

2330 RETURN 

2330 RM C 4 ) =flBS C Xn J +fiES ; VD- 1 ;■ 

3000 RETURN 

30 1 8 RM ':; 5 > =hBS >: XH ) +hE:E: C VD '> 

3020 RETURN 

3930 RM(6>=HBSt:xri>+flESCT'ri+l> 

3040 RETURt-J 

30^,0 rn':7v-hi:so:d~i >+HB3'::'T'ri-i ;■ 



37 



3960 RETURN 

3076 Rri';s>=HBS';Kri-iHHBS(vii:J 

:3H(36 RETURN 

3y3iZi RM (9)=flES<HD-l >+RE3';VIl+l ; 

31y0 RETURN 

3110 flii =763y+22*X+T 

3120 IF C-i = " " THEN POKE hD.. 1€.Q : RETURN 

31313 IF C*<>"<:" THEN 3150 

3 1 40 POKE fln .. b0 ■■ POKE Rri+30720 . O : RETURN 

3156 IF CS<y"y" THEN 3170 

3160 POKE flD.. t"2;P0K"E flD+30720.. 1 : RETURN 

3176 RETURN 

3130 REM 

31yS REM SET 

200 REM 

210 FOR K=l 

220 RERD X 

230 FOR 1=^; 

24U REmD J 

£50 POKE I. .J 

260 NEXT I..K 
5270 RETURN 
3230 REN 

3230 REM CHflRRCTER IiflTR 
3300 REM 

3310 riRTR 7616.. 153.. 30,. 60.. 255.. 255.. 60.. 92. 153 
3320 DRTR 7624 .. , 73 .- 42 . 23 ..127.. 23 .. 42 .. 73 
335 DRTR 7632 . .- .. . 24 .. 24 . O .. .. O 
3340 IiRTh 7640a 0^0^0j0..0j0.. 0.0 



UP GRRPHICS CHflRflCTERS 
TO 9 
TO X+7 



3350 DhTH 
3360 DRTH 
3370 DRTR 
3330 IiRTR 
3390 DRTR 
RERDV. 



764 P: . 2S . 2:5 . 3 .. 62 .. B .. 2 U .. 34 .■ 
7656 ^ 26 .. 44 .. 63 .. 254 .. 63 .. 63 .. 1 24 .. O 
7664 . 1 . 1 3 .. 1 5 . 254 > 254 .. 243 .- 1 2e . 1 3g 
7672.S.2S.2S>62. 127.. 3.3.8 
7 4 2 4 J .. .. y .. .. .. .. .. 
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DO-RAY-ME 

DESCRIPTION 

This program allows the VIC keyboard to be used as a piano 
keyboard. The program has a range of three octaves and 
sharps produced by using the shift key on the top two 
octaves. The keys iaeing used are : Z-, Bottom octave (no 
sharps), A-K Middle octave (shifted for sharp), Q-l Top 
octave (shifted for sharp). turns off the note. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion required and connected to 
a television set for sound. 

RUNNING THE PROGRAM 

After typing run, use the VIC keyboard as a piano and play 
some music. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40 SS holds the address of sound register 0. 

50 Set four sound registers to zero. 

60 Set volume register to 15. 

90 Input key for note. 

100-350 Check for unshifted key. 

360-550 Play note. 

390-550 Check for shifted key. 
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10 REM PIflHO 

29 REM 

30 REM 

40 SS=9*16t3+10 

50 POKESS, : POKESS+1 . 6 = POKESS+2. 6 • P0KE3S+3> 
60 P0KESS+4.15:PRINT"n";"PRESS fl KEV" 
70 PRINT "FOR fl TONE-" 
80 PR1HT"0 TO STOP TONE" 
S0 GETfl* : I Ffl$= " " THEH90 
100 IFfl*="fl"THENB=191 :GOTO360 
110 IFfl*«="S"THENfl=198-GOTO360 
120 IFfl*="D"THEHfl«204;GOTO360 
1 30 I FR*= "F "THEHfl=207 = GOTO360 
140 I Ffl*- " " T HEHft=2 1 3 • GOT0366 
150 I Ffi*= " H " THEHfi=2 1 7 ■ GOTO360 
1 60 I Ffi*= " J " THENfl=221 : GOTO360 
170 IFl=[$="Q"THENfl=223:GOTO360 
1 80 I Ffl*= " W ''THEHfi=227 = GOTO360 
159 IFfi$="E"THENfl=230:GOTO360 
200 IFfl*="R"THENfl=231 :GOTO360 
210 IFflf="T"THENfl=234:GOTO360 
220 IFfl*="V"THENfi=236:GOTO360 
230 IFfl*="U"THENR=238:GOTC360 
240 I Frt*=" I "THENfi=239 ■ GOTOSbS 
250 IFR$="0"THENfl=0:GOTO360 
2b0 IFfl*="K"THEHfl=223 = GOTO360 
270 IFFl*=" . "THENm=191 = OOTO360 
280 IFft*="M"THENH=lS7 : GOTO360 
29B I Ffi3:="H"THEHH=l 79 = GiJTO360 
300 I Ffl:5= " E " THENH= 1 70 : GOTO3t;0 
310 1 Ffl*= "V " THENm= 1 53 : GOTO360 
320 IFftX-^ "C "THENfi^ 1 53 ■ GOTCi360 
330 IFfl*:="X"THENH=141 :GOTO360 
340 IFhl*="Z"THENM=123:GOTO360 
350 GHTO'^'^G 

365 POKESS. ■ F0RI=1 TO50 ■ NEXT 
370 POKESS,fl 
380 GOTO 90 

390 I Ffl$= " ^ " THEHR=240 : GOTO360 
400 IFfi*=" /'THEHH=239 • GOTO360 
410 IFfl*=" rTHENH=237:G0T03»5G 
420 I FR*:= " I " THENfi=235 ■ GOTO360 
430 IFR*="-"TH£Nfl=232 : GOTOSt© 
440 IFfl*="~"THENfl=23l :Gi:iTO360 
450 IFfti:="0"THENfl=22S : GOTOSt"© 
460 IFR$="»"THENR=225 = GOTO360 
470 I Fh*= "-■ "THENH=22.5 ■• GOTO3i50 
'ISO I Fri^-= " •^" THEHh=223 : GUTO3S0 
^90 1 i'n.l = •' I " TH|-:HH=2 1 9 : GOTO360 
00 I FHf ^= " I " TH!-:NM=2 1 5 : GOTOSbG 
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Ifi IFR*="-"THEHl=l=210:GOTO360 
2ri IFfl|:-"""THENh=20? = GOTO360 

530 I FFl*= "•" THENfl=20 1 : 0010360 

540 IFft|:="«"THEHft=195:GOTQ360 

550 GOTOSei 

RERDV. 
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SOUND EFFECTS 

DESCRIPTION 

This program has a selection of noises generated by the 

computer, with which the user can play around to produce 

some interesting sound effects. 

For example, when the display appears on the screen the 

user Is offered ten choices by mixing sound number three, 

the bombardment with sound number two, the explosion; 

the effect is that of a bomb dropping and its resulting 

explosive sound. 

The actual display for this program is a very simple one at 

first glance, but a great deal of work has gone into the 

writing. The border surrounding the ten choices changes 

colour in a random manner. 

Should the user decide to write his own games program he 

will find this program to be of great use when deciding which 

sound effects to add or spruce up the end result of his work. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After loading the program and typing run the attractive 
display will invite the user to make his choice of sound. By 

hitting the appropriate key I.e. 0, the user will hear a mystery 
noise. To retire from the program the user must hit the space 
bar. 

PROGRAM STRUCTURE 

The lines to note in this program are as follows. 
50-190 Instructions and the input for 'Which Choice. 
290-320 Subroutine to generate the mystery noise. 
330-350 Subroutine to generate the computer mania 

sound. 
360-370 Subroutine to generate the explosion sound. 
380-410 Subroutine to generate the bombardment 

sound. 
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420-440 Subroutine to generate the alarm noise. 

450-470 Subroutine to generate the laser fire sound. 

4S0-500 Subroutine to generate the siren. 

510-520 Subroutine to generate the silly tune. 

530-560 Subroutine to generate the telephone ringing 

tone. 

570-610 Subroutine to generate the random noises. 

620 End of program. 
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10 REM SOUND EFFECTS 

3& REM 

40 P0KE36879.26 

5ei PRIHT"inS^* SQU HD EFFECTS **■"; 

60 PRINT" ": 

70 PRIHT"i MVSTERV HOISE 

30 PRIHT":«B 1 COMPUTER MflNIfl 

90 PRINT">!k. 2 EXPLOSION 

160 PRINT"J«I 3 EOrlBflRIif^lENT 

110 PR I NT "Mi 4 fiLFiRH 

120 PRIHT")jS 5 LfiSER FIRE 

130 PRIHT"Kn 6 SIREN 

140 PRINT":ai 7 SILLV TUNE 

150 PRlHT"1fS S TELEPHONE 

160 PRIHT"3!k. 9 RfiHnOM NOISES 

173 PRINT"« a "; 

180 PRINT" WHICH ONE ? Hill e8";Q=l 

190 GETft$:IFfl$O""THEN240 

200 FORI= 1 TO5C10 : NEXT 

210 Q=Q+l : rFG=8THEH0=2 

220 P0KE36879.Q+24 

230 GOTO 190 

240 H=l+VfiL<fl*) 

250 IFfl$=" "THENe20 

2&0 ONMGOSUE290. 330. 360. 389. 420. 450. 438/ 510. 538. 576 

279 FORG=0TO4 :POKE36S74+G.0;NEXT 

2S0 GOTO! 90 

284 REM 

235 REM MVSTERV NOISE 

235 REM 

290 P0t<E3eS7S. 15:FORL=250TO200STEP-2 

309 P0KE36876 . L : FORri= 1 TO 1 00 = NEXT : NEXT, 

310 FORL=205TO250STEP2 = P0KE36376. L 
320 FORM=1TO100 : NEXT : NEXT : RETURN 

324 REM 

325 REM COMPUTER MFlNIfl 
o-jg REM 

330 P0KE3fc":S7S. 15:FORL=1TO100 

340 P0KE36S76. INT<RHD<1)*12S)+12S 

350 FORM=1TO10 : NEXT ; NEXT : RETURN 

354 REM 

355 REM EXPLOSION 
'•i'^6 REM 

360 F'0KE36S77. 226 : F0RL=1 5TO0STEP- 1 ■ P0KE36S7S. L 
370 FORN= 1 TO300 ■ NEXT ■ NEXT : RETURN 

374 REM 

375 REM EOMEflRIiMENT 

376 REM 

?.iir-i P0KE3687S.. IQ ■ FORL=230TO12eSTEP-l : P0KE36S7e. L 
3-?H FORM= 1 TO20 Wi-'.'J •■ NEXT = pnKE3637b. 
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400 P0KE3b87S. 280 : FORL=15TO0STEP-. 5 
410 P0KE3&S78 i L : NEXT : RETURN 

414 REM 

415 REM FiLRRM 

416 REM 

420 P0KE36S?S> 15 = FORL=1TO10:FORM=1S0TO2353TEP2 

430 P0KE3eS7b, M : FORH=lTni0 : NEXT ■ NEXT 

440 pnKE36876. 6 : FORM=1TO100 : NEXT : NEXT : RETURN 

444 REM 

445 REM LASER FIRE 

446 REM 

45A P0KE36S73 .15: FORL= 1 TO30 = FORM=250TO240STEP- 1 

4^0 P0KE36S7e . M : NEXT : FORM-240TO25e 

470 P0KE:-^6S?6. M : NEXT ■ P0KE36S7b". S : NEXT -■ RETURN 

474 REM 

475 REM SIREN 

476 REM 

A^Q pnKE36878. 15 : F0RL=lTOie : PGKE36875. 200 

4'?0 Fi'iRM=lTu500 ■ NEXT ■■ P0KE36875. ^ P0KE36S76, 200 

500 FORM= 1 TO500 : NEXT : P0KE3bS76 / : NEXT : RETURN 

504 REM 

505 REM SILLV TUNE 

506 REM 

510 POKE36878.15:FORL=1TO15:POKE36876.160+L 
520 F0Rf1= 1 TO400 : NEXT = NEXT : RETURN 

524 REM 

525 REM TELEPHONE 

526 REM 

530 P0KE:^e878. 15 :FORL=1TO5-FORK'=1TO50 

540 PLiKE36S76. £20 • F0RN=1 T05 : NEXT : P0KE36S76.. 

550 NEXT 

560 FORM= 1 TO3000 ■ NEXT : NEXT ^ RETURN 

564 REM 

565 REM RFiNBOM NOISES 

566 REM 

570 P0KE36S78. 25 ; FORL= 1 TO20 

530 F0RM=254T024e+INTCRNDCl >*10>STEP-1 

530 P0KE36876,M-NEXT 

600 POKE36876..0:FORM=0TOINT<RNIi<l>*100) + 120 

610 NEXT; NEXT; RETURN 

620 ■■ PRINT":i3" ; ■■ P0KE36S79. 27 

REflDV. 
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ARROW 

DESCRIPTION 

The aim of this game is to score the highest number of points 
before the time limit of sixty seconds runs out. In this game 
the user becomes an arrow which, as the game progresses, 
grows little blobs on the tail. These blobs increase the risk 
factor of travelling around within the game area. But travel 
the player must. To score points the arrow head must pierce 
randomly appearing squares which contain different point 
values. 

The danger from ever increasing blobs comes from unwary 
directing of the arrow head in the user's eagerness to spear 
the squares. The user may (and does) spear himself in the tail, 
Hitting the surrounding border of the game will also lose the 
user the match because the effect of hitting the wall turns the 
arrow head back upon its self and into it's tail. 

EQUIPMENT REQUIRED 

Basic unexpanded VIC-20. 

RUNNING THE PROGRAM 

After loading the program and typing run the game appears 
on your screen with the timing gauge ticking away in the top 
left hand corner. In the centre of the top border line the 
scoring gauge tried valiantly to keep up with the timer. To 
move the arrow head the following letters have been 
designated: 

T 
F H 

B 

T = Up- 

F = Left. 

H = Right. 

B = Down. 
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PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-50 Find start of screen and colour memory maps. 

150-190 Displays border. 

200-540 Plays the game. 

550-580 Indicates player hitting the wall or his tail. 

570-620 Informs player of new high score. 

630-640 Input for another go. 

690-710 Sounds when scoring. 

740-750 Sound when arrow is moving. 

770-960 Print instructions. 




m 



10 REM FlRROW . ^^_ 

29 REM ***.**.**********#**************♦****** 

30 REM 

34 REM 

35 REM Finn START OF SCREEN AND COLOUR MEMORY MFlPS 

36 REM 

40 VR=PEEK': 648^*256 

50 KR-334G10 ■ IFV'R<>7S8eTHEHKR=37SS8 

eO GOSUE770 

70 PUKES28.0 

80 rUMPCSSJ 

30 KLa^ = l:KL".'2)=3:KL(3>=5:KL<:4>=7:S=0 

100 FOR I = 1 TU4 : REflUFl* < I > : NEXT = DflTFlE . F . H .. T 

lie D(0>=£2:D<l>=60-I)<:2)=62-riC3>=30:T6=3599 

120 13= VR 

130 CS=VR 

140 CI =22 :REM SCREEN WIDTH 

144 REM 

14?=! REM DISPLflV BORDER FiROUHD SCREEN 

145 REM 

150 PRINT"*) SCORE: TOP" PEEK 02S>; 
1 60 PRINT " ;:KIiMt»««««t*«*tt*t«««**«* " ^ 
170 FORI =11020 

130 PRINT"* •"^ =HEXT 

1 90 PR I N T " ••••••••••••••§ ••••••■■li»S ^ 

194 REM 

195 REM SET TIME TO ZERO flND PLflV GAME 
jcig p;EM 

200 V=15;H=10:V1=0:H1=-1 

210 P2=10:D1 = 1 =TI:t="000e00" 

220 PRINT"i3";RIGHT*ai:r:2:)aFTI>T6GOTO530 

23m GETZi^: IF2:r=""THEN2S0 

24ri 2=50 : FuRV=l T04 = IFZ$=Fi*C V:? THEN2=V-1 - V=5 

250 NEXT: IFZ<>IHT<Z>OR2<0ORZ:>3GOTO2S0 

260 Dl=Z;ri=Z-1.5:Vl=INTCHBS<I0>*SGN';'D:) 

270 Hl=SGHai)-'v'l 

280 V=V-V1 :H=H+H1 :GOSUE740 

2^0 P=CS+V*C1+H •■ KL=INT<RNri< 1 >*4+l > : KL=KL<KU> 

300 POKEKR+ V*C 1 +H . KL 

310 P9=PEEK(P; 

320 R6=R7 : R7=R7+1 : IFR7>P2TH£NR7=0 

330 Pl=PCF;7>:p<R7>=P 

34fi IFP1O0THENPOKEP1 . 32 : P0KEP1~CS+KR. 7 

35h pokep,. B<.:n :< ■ pi=p<:r6> : ifpiosthenpokepi . si 

360 IFP9O32GOTO490 

370 IFRNr<U>.05THEN220 

3ftFi F0RV3=V2~ 1 T0V-'2+ 1 : P3= V3*C 1 +T9 

390 F0RH3=H2-lTuH2+i : IFPEEK<P3+H3>O102GOTO410 

400 P0KEP3+H3.32 

41H NEXTH3..V3:T==0POKFP:E:..32 

4.ti V2=INT^RND<U*1S>+3:H2^INT<:RNIi<1.)*19>+2 



49 



430 FORV3=V2-1TOV2+1:F3=V3*C1+T9 .^^.^^ 

440 F0PH3=H2-1T0H2+1 ■ IFPEEK'iP3+H3K^3£GuTO4£0 

450 NEXTH3 . V3 : F0RV3=V2~ 1 T0V2+ 1 ■■ P3=V3*C 1 +T9 

460 F0RH3=H2-1T0H2+1 :P0K'EP3+H3. 192 

47H HEXTH3. V3 : T=S'*RND< 1 y ■ PS=V2*C1+H2+T9 

489 F'0KEP3,49+T-G0T022Q 

49S IFP9<>ie2THEN550 

500 T$=TI* 

Slf^ T=T-i :3=S+1 : P0KEP8.. T+49 

520 PRINT"ai»»»»Mi»r';S 

5:-:9 GOSUE690 • I FT>=9THEN51 

540 P2-P2+ 1 : T I -f =Tf : GOTO3S0 

544 REM 

545 REM HIT WALL OR VOURSELF 

550 P0KE36S7?. 220 = FORL=15TO0STEP-1 : F0KE36S78. L 
560 FORM= 1 TO300 : HEKT : NEXT 

570 P0KE36877 .. ■ P0KE3SS73 .. 

530 IF3<=PEEK*;323:)THEN610 

5-^fi PRINT"neWIe]*EW HIGH SCORE" 

600 PRINT"W"3"P0IHTS." P0KE32S.3:G0T0 630 

610 PRIHT-'ricIRM^IGH SCORE IS"; PEEK(S2S>; 

620 PRINT"!!. ":pRIHT";?Ii!WOiJ GOT : "S"ll. 

630 PRIHT":8WinN0THER GO CV/H;- ? 

640 HETZ* : I FZ$= " " THEH640 

650 I FZ$= " V " THENRESTORE : PR I NT " H" = G0T099 

6f.f^ IFZf<>"H"GOTO640 

670 PRINT":S% :P0KE363?9..27-EHD 

630 REM MUSIC 

690 P0KE3687S.. 1 5 ■ FORL=200TD240 : P0KE36376. L 

700 FORM= 1 T05 ■ NEXT = NEXT 

710 POKE3637S.0-POKE36S76je 

720 : 

730 RETURN 

740 P0KE3637S. 15 : PGKE3b376. 220 

750 FORL= 1 T05 : NEXT • P0KE36376 . 

760 RETURN 

764 REM 

765 REM INSTRUCTIONS 

766 REM 

770 P0KE36S73.42 

730 PRINT":n *** VIC ARROW ***" 

790 PRINT "Wt'uU RRE fiN fiRROW" 

SQ0 PRINT" MOVING AROUND THE" 

310 PRINT" SCREEN. TRV TO HIT " 

320 PRINT" THE BOXES FOR POINTS. " 

830 PRIHT"Wt'OU move WITH =" 

S40 PRINT" T T=UP" 

S50 PRINT" I F=LEFT" 

860 PRINT" F-i-H H=RIGHT" 

870 PRINT" I E=riOWN" 

m 



S39 PRINT" E 

840 PR;IHT":syOU MUST AVOID THE" 

900 PRINT" WfiLLS fiHD VOURSELF. " 

910 PRINT" flS TIME GOES ON THE" 

<520 PRINT" ftRROW GETS LONGER." 

■=|3M PRIHT":B7r'0U HAVE 60 SECONDS. " 

940 PRINT" JJHIT flNV KEV TO STARTS" 

95^1 GETFif :IFFl$=""THEH950 

960 PRINT'T]"; RETURN 

REflDV. 
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TANK-V-UFO 

DESCRIPTION 

This game is a test of timing and sl<ill. The aim of the game is 
to destroy the invading UFO which floats across the screen at 
varying heights while dropping bombs on the red tank below. 
The tank meanwhile transverses the ground firing at the 
UFO. Very attractive little explosion characters appear but 
are not dangerous. 

When hit, the UFO explodes spectacularly but the tank 
flashes red and black. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

In order to run this program on an unexpanded VIC remove 
all REM statements. 

After loading the program and typing run the screen will 
display a simple line along the base of the screen on which 
rests the tank. At the top of the screen the first two lines 
display the score, the number of tanks hit and the number of 
UFO's wiped out. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-50 Limits the top of memory. 

70-80 Find start of video and colour memory maps. 

130-200 Sets up display. 

220-540 Plays the game. 

550-620 Motivates the tank. 

630-650 Explodes the bombs on the ground. 

670-700 Clears the bomb explosions. 

710-770 Explodes the UFO's. 

780-840 Clears exploded UFO's of the screen. 

850-1000 Explodes the tanks. 

1070-1170 Print instructions. 



1180-1220 Displays score at the top of the screen. 
1230-1240 Clears keyboard buffer and ends program. 
1260-1320 Sets up characters. 
1330-1410 Character data. 






SCOR! 
SOORI 



a. 
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10 REM TRNK-'v'-UFO 

20 REN 

30 REM 

S4 REM 

:-:5 REM LIMIT TOP OF MEMORV 

3b REM 

4M priKE 56.PEEK';5e:>-;S:pOKE 52 .. PEEK ^: 56) -3 

50 PriKE 51 .. PEEK';55; ■ CLR : F0KE3bS79.. 42 

60 GOSUE 1 070 ■ PR I NT " .T' 

64 REM 

65 REM FIND STFiRT OF VIDEO RND COLOUR MEMORV MHPt 

€■€. REM 

?0 VR=PEEK';b4£0*25S 

E;m KR=:::8430 : IFVR<>7t'38THEHKR=573SS 

50 ijF=KR-VR 

i i^^fi Vfl=9jf 1 £. ■|"3+ 1 4 : VN=9.+: 1 fc' t3+ 1 3 

lie pnKEVFl+l.-25 

115 REM 

120 REM SET UP DISPLRV 

121 REM 

1 30 F'R I NT " iiJ«PMPli!M!!l(!l«!M(!M!!I5i(!ftlBteIf!l'!l?Ir]" > 

140 PRINT" :^ errrm " 

i™ F0RFl=KRT0KR+22*23 : POKER.. ■ NEXT ■ Pi=0 

160 PRINT 

178 PRrNT"fl 3 " 

180 PRINT"y- : :.: " 

190 PRINT "Tn" J 

200 GOSUE 1189 

203 REM 

210 REN RERIi KEVEUflRD 

211 REM 

220 I FPEEK ( 1 1=^7 > =34THENGOSUB590 ■ H=fl+ 1 : GOTO530 

230 IF PEEKay7><::>4S then 260 

240 FOKEVH , ■■ POKEVN , 

250 PRIHT"S:3"; ■ GOTO 1230 

260 I FPEEK \ 197::'=33THENGuSUE55e ■ fl=R-i : GUT0530 

270 I FNHT >[ PEEK a 97 ) =55fiNDE=0 ; THEN500 

230 E= 1 : C=3079+fl : L= 1 ■ P= 1 5 : POKEVN .. 1 53 

290 POKEC J 63 : PGKEC+UF . 2 - G0T037y 

300 IFL=0THEN320 

3 1 FOKEVhl . P : P=P- 1 ■ IFF=- 1 THENL=0 ■ POKEVN .■ 

320 IFI:=uTHENPiJKE3bS7o..0:GOTO 370 

330 pnKEC..32:C=C-22 

r^;4w lFPEEKO:>=6eORPEEK';c:)=61THEN710 

350 IFC<7746THEHE=0 : GOTO370 

360 PGKEC..63 

370 IFD=QTHEH1030 

3S0 IFD=0THEH430 

3 wfl POKEE .. 32 ■ POKEE- 1 .. 32 : P0KEE:-2 .. 32 : K=K+ 1 

400 IFE=ITHEND=0 ;ijDTO430 

4 1 ri E=E+ J ■■ POKEE .. 6 1 ■ POKEE- 1 .. 69 
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420 IFJ=lTHEH4ge 

433 IFNOTUHT'; C:51;=Hi-E>,-'22>=£2-K-flflHDF=0>THEN4l: 

44tj F=i-G=E+2i:N=21 

450 6UTO4S0 

460 IFNOK IHT< <8098-E)/£2>=fl-KflHDFO0>THEN4S0 

470 F=i:G=E+23:n=23 

430 IFF=0THEH220 

430 P0KEG.32:G=e+ri 

500 rFPEEK(G><>32THEN850 

510 1 FG>VR+22*2 1 THENF=0 : GOTO630 

520 POKEG..62:GOTO220 

530 IFFl<:0THEHfl=0 

540 IFft:>lt'THENfl=16 

544 REM 

545 REM MOVE TfiNK 

546 REH 
550 PRINT 

560 PRINTTPB<fl>" 8" 

570 PRINTTRE';flV'9: ■ -i" 

500 PRINT'Tm"; :OOTO270 

596 PRINT 

600 PRIHTTFlB<fl>" 

610 PRIHTTflBCfl)" 

620 PRINT'Tm" J : RETURN 

624 REM 

625 REM EXPLODE BOME ON GROUND 

626 REM 

630 POKEG . 1 34 : POKEG+ 1 .. 266 : POKEG-1 . 205 

640 POKEG-20. 174 : POKEG-21 . 174 :P0KEG-22. 174 

650 POKEG-23 .■ i 74 : POKEG-24 . 1 74 

£56 REM 

€€0 FORfiH=l TO 1 00 : NEXT 

664 REM 

665 REM CLEfiR BOMB EXPLOSION 

670 POKEG , 32 : POKEG+ 1 . 32 : POKEG-1 . 32 
680 POKEG-20. 32 • POKEG-21 . 32 = P0K:EG-22.. 32 
&9Q POKEG-23. 32 - POKEG-24 . 32 
700 GOT022e 

704 REM 

705 REM EXPLODE UFO 

706 REM 

710 POKE 30720+C..5 

720 POKE 30720+0+1. 5 :puKE 30720+.C-1.5 

730 L=0 

740 POKE VN. 223 

750 FORGG=15TO0STEP-1 = POKEVfl.GG+123 

760 F0RGH=1 TO70 : NEXT : NEXT 

770 B=0:ri=0 

774 REM 

775 REM CLEAR UFO EXPLOSION 
7V^i;: Rl-M 
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780 POKE 3i3720+C..Ci:PCiKE C.32 

790 POKE 30720+0+ 1..Q- POKE C+1 , 32 

800 POKE 30720+C-i ,. : POKE C-1 .■ 32 

SlM GUTO320 

320 PRIhJT"3£3«",; 

330 riu=riij+ 1 : GOSUE 1 i se 

&4S 0070220 

S44 REM 

845 REM EXPLODE TRNK 

84b REM 

350 POKEVH. 123 -L=3 

360 R=R:FORKL=lTu200STEP3:PGKEVfl. 15-IMT(:KL/13> + L 
37Q PRIHTTflEtfl)" 
330 PRIHTTRE(;Ff;j"ia S" 
330 PRIHTTRE(M>"3: : ^ .: " 
900 PR I NT "m": 
910 FOR 1=1 TO 50: NEXT I 
520 PRIHTThE(R>"M 3 
930 PRINTTRE'iRV'y: ■ ■ ■ " 
940 PRIHT".Tn". 
950 FOR 1=1 TO 50: NEXT I 
960 NEXT 
970 PRINTTflE':R>" 
930 PRIHTTRE<RV 
990 PRIHTTfiE-::R>" "i 
1000 PRINT""rn'S 
1010 riT=riT+ 1 : GOSUE 1130 

1 M20 F=0 : H=0 : GOTO 1 £0 

103Ci D=l : E=7702+IHT'.:RHD< 1 >*14 J*22+33 : I=E-20 : K=0 

104y j=-i : iFRNCa )>. 5THEHE=E-21 : I=E+20 = J=l 

1M5Q GOT 03 30 

1055 REM 

1060 REM PRINT INSTRUCTIONS 

1061 REM 

Ui7n PRINT"rrft** TANK VERSUS UFO**^ 

1030 PRINT"«t'uU RRE the DRIVER OF 

1090 PRINT" R TRNK. 

1100 PRINT":«?HDOT THE LIFO-'S UITH. 

1110 PRINT">!W Z = :-LEFT* MOVEMENT 

1120 PRINT":« C = :-F:IGHT« MOVEMENT 

1130 PRINT":!!] E = :-FIRE« 

1140 PR INT ":^] Q = sasuiT^ 

1150 PRINT":(!l««I?£:THRT NITH RNV KEV 

llnH GETR$: IFRi:=""THEN1160 

1 1 70 GuSUE 1 260 : PUKE36S69 ,. 255 : RETURN 

1130 PRINT"3SiS==> TRNK SCORE : "DU ' 

1190 PRINT" :^=> UFO SCORE : "DT 

1200 PRINT "Hd 

1210 PF: INT" :(!l(iI?M!!ft!l(!leHW9l»I«!li!Ul 
1220 RETURN 



Wi 



1 23u FCfR I = 1 TO50 • GETR* = NEXT - P0KE3t"379. 27 

124m poke 36869.240: poke 56.. PEEK C 56 > +2 : END 

1249 REM 

125t3 REM SET UP GRFlPHIC CHFlRflCTERS 

1251 REM 

126y FOR 1=1 TO 9 

12?e READ >: 

12SL1 FOR J=0 TO 7 

1290 RERD K 

1300 POKE K+J.<K 

13ie NEXT J.. I 

1320 RETURN 

1324 REM 

1325 REM CHflRfiCTER IiflTli 

1326 REM 

13Se DftTfl 7424.0.0.0.0.0.0.0/0 

1340 DftTfi 764:3.64.32.31.25.57.127.253.56 

1350 IiRTR 7656. 2. 4. 24S. 152.. 156. 254. 119,. 2S 

1 360 DRTfl 7664 . 6S . 1 OS . 1 24 . 56.. 56 .. 56 ,. 1 6 .. 

1370 DRTR 7672.16.56.56/56.124.108.68.0 

1330 DflTfi 7616.24.24.24.24.60.126.255.255 

1390 DRTft 7624. 15. 31. 31. 63. 63. 31. .31,. 15 

1400 DRTR 7632 ..255. 255. 255. 255. 255. 255. 255 ,.255 

1410 DRTR 7640. 240. 248. 24:3. 252. 252. 24S.24S.24y 

RERDV. 
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LANDMINE 

DESCRIPTION 

This is a game of increasing difficulty. The object being to get 
your man home safely through the minefield. The computer 
offers help by warning you where the mines are up to two 
moves away from the man in any direction. The warning 
given consists of a high pitched alarm should there be a mine 
one move away from the man and a lower pitched alarm if 
the mine is two moves away. 

Once the player has made it safely to his home or has been 
blown up the player must hit the 'E' to end the game. Any 
other key and the game is reset for a new go. Each time the 
player elects to play again two more mines are added to the 
minefield to increase the difficulty of play. 

EQUIPMENT REQUIRED 

A basic VlC-20 with 3K of expansion memory. 

RUNNING THE PROGRAM 

To move the man in the required direction use the number 

keys, thus: 

7 8 9 

4 6 

1 2 3 

Remember to listen for the landmine warnings! 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
40 Sets up number of mines at 10 initially. 

50 Limits top of memory. 

60 Array for storing grass and mines. 

1.10-150 Sets up grass in all positions in the array. 
170-240 Chooses random positions for mines. 
250-260 Sets grass in top left, house in bottom right 

position. 
290-420 Displays minefield. 

SB 



470-500 Inpute moves. 

520-670 Increases or decreases X and Y positions 

according to move input. 
680-700 Check for validification of move. 
710-720 Displays white grass path taken by man. 
730-810 Check for mines near man. 
860-8^ Displays mine field successfully crossed. 
900-980 Displays mine stepped on. 
990-1020 Input for new go, E for end of the game. 
1030-1040 Increases the number of mines by 2 and sets up 

screen to replay game. 
1090-1190 Displays routine. 
1220-1360 Authorises warning to man that mines are in 

the vicinity. 
1435-1500 Sets up graphics characters. 
1510-1590 Data for characters. 
1610-1740 Displays explosion. 
1760-1940 Input move and sounds alarm if mines are 

close. 
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10 REM LHNDMIHE 

29 REM 

30 REM 

40 POKE 5e0.10;REM NO MINES = 10 INITIRLLV 
50 POKE 5b.PEEK(5e>~l:CLR:P0KE 56 .. PEEK >; 56 !) + 1 

M HIM Hiras.. 18::' 

7y POKE 3b3?3..42:pRINT"n" 

S0 GOSUE 1440 

90 POKE 56.PEEKC56>-1 

100 POKE 36869.255 

lie FOft 1=1 TO 19 

120 FOR J=l TO IS 

130 fl*CI...T;="6S=" 

140 NEXT J 

150 NEXT r 

159 REM 

IbQ REM SET UP MINES fit RANDOM 

161 REM 

170 FOR 1 = 1 TO PEEK < 900.^ 

180 j>;^;=RHrici:)*i9+i 
190 v;:=RNDa>*is+i 
200 IF R*(X';..v;o="ftr--" then lee 

210 IF X;;=l RNIJ V?i=l THEN ISO 
220 IF >.■.■;=! 9 AND V?i=lS THEN 13Q 

230 ft$c^y..'T':o=^"n^" 

240 NEXT I 

250 fi$a.. l>="li=" 

260 flt<19.18)="BS" 

270 PRINT"n:« HO OF MINES = ".PEEK(900> 

279 REM 

280 REM PRINT MINEFIELD ON SCREEN 
2Si REM 

290 CL=2 : N0=19 ; 2t="ii="-- T*="H" 

300 FOR RN=2 TO 19 

510 GOSUE 1050 

320 t^EXT RW 

330 CL=0 • HO-21 : RW=0 ■ Z$=" SG^I" ■ T$="H" 

340 GOSUE 1050 

350 RW=20 

360 GOSUB 1050 

370 CL=0 : N0= 1 9 ■■ RW= 1 ■■ 2t= " SS^iS" ■ T$= " V " 

330 GOSUE 1050 

390 CL=21 

40fi GOSUE 1050 

410 K;i=i-v:-:=i 

420 CL=20-RW=19:T*-"H"-NO=l;Z*="i8":GOSUB 1950 

430 PRINT" a" 

440 GOTO 740 

450 G03UB 1370 

460 PRINT"»?"j 

470 GOSUE 1750 
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486 GG=7flLCGG$) 

45Q IF GCKl OR GG>9 THEN 450 

51Q ON GG GOTO 520.540,560.580.600.610.639. 659. 676 

520 XK-i=Xy.- 1 : VVK=Vv+ 1 •• CR*= " IW" 

550 GOTO 6S0 

54u •iC<'i=>Ci ■■ VV:!i=V/i+l : CR$="W" 

550 GOTO 680 

570 GOTO 6S0 

5S0 >!X'.'=x.'-;- 1 : vvy.=w/. ■ cr*= " ii" 

590 GOTO 630 
600 GOTO 450 

610 xxy.=y:/.+i-- wy.-wy. ^ cr*= " h" 

t20 GniO 686 

630 Ky.y.=><K~ 1 ; wy.=r/.- 1 • cr$= •* ni" 

640 GOTO 6S0 

650 xx^;=xr; : vv;;=v;:-i ■ CR4f="n" 

660 GOTO bS0 

676 xx;i=x:^+i : vvri=v";-i :CR*="iii" 

680 IFKXyXl OR XX:019 THEN 456 
690 IFVVK<1 OR VV;;>13 THEN 456 

700 y.:-:=yx/. ■ v^=vv': 

710 CL=l+ftH;;-RW=l+EE?;';T*="H":Z*="*=M" 

720 GOSUB 1050:fl$*;fiflr;.EB*;>="*=" 

725 REM 

730 REM NOW CHECK FOR MINES IN VICINITV 

731 REM 

740 IF f{$cA::..r/.>=":iD'" then 900 

750 RfCX?;. V'O = "■?■• 

760 IF X;-r=19 AND V/;=13 THEN S60 

765 REM 

7?0 REM CHECK FOR i MOVE fiWflV 

771 REM 

780 MS;';=1 -GOSUE 1200 

756 IF MN06 THEN 326 

759 REM 

800 REM CHECK FOR 2 MOVES flWfiV 

801 REM 

816 MSr;=2 : GOSUE 1200 

819 REM 

820 REM RESET CURSOR WITHIN MINER lELH 

821 REM 

830 GOSUE 1370 
840 GOTO 450 

849 REM 

850 REM MIHEFIELE CROSSED SUCCESSFULLV 
B51 REM 

see CL=0 ■ N0= 1 ■■ RW=2 1 ; T$= " H " 

370 Z*=":^*lINEFIELri- 3IXCESSFULLV CROSSED ■" 

830 GOSUE 1650 
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830 f\-f<l9,iSy="MS"-G010 930 

839 REM 

300 REM LANDMINE EXPLODES 

301 REM 

910 GOSUE 1600 

320 R*(x;i..v>;>=";ji3" 

330 FOR V=l TO IS 

340 K-/.= 1 : V;':=V : GOSUE 1 370 

550 FOR X-1 TO 19 

5SCi PRINT Rf(X*V>; 

370 NEXT X 

3S0 t£XT V 

330 GET GG$:IF (3G*="" THEN 990 

1000 IF GG$0"E" THEN 1030 

1010 POKE 5e..PE£Ki;56) + l :POKE 36S69.240 

1020 POKE 36873, 27 -PRINT-'^S": END 

1030 POKE 300. PEEK < 300 > +2 

1040 POKE 5e.PEEK<56>+l:G0T0 56 

1043 REM 

1050 REM SUBROUTINE TO DRAW LINE ON SCREEN 

1060 REM CL=STRRT COLUMN. RW=£TftRT ROW 

1070 REM NO=NO OF CHfiRS,T*= V<VERT)..H<H0RI2J 

10S0 REM Zf=TEXT TO PRINT 

1081 REM 

1030 PR I NT "3" 

1100 IF CL=0 THEN 1120 

1110 FOR 1=1 TO CL-l-PRINT'JI"; :NEXT I 

1120 IF Rl'J=6 THEN 1140 

1130 FOR 1 = 1 TO RtJ-i:PRINT"W";:NEXT I 

1140 IF T*="H" THEN 1*="" 

1150 IF T$="V" THEN I *="*«" 

1160 FOR 1=1 TO NO 

1170 PRINTZ:t;I*J 

use NEXT I 

1190 RETURN 

1199 REM 

1200 REM CHECK FOR MINES IN VICINITV 

1210 REM MSJi=l CLOSE 3EfiRCH.MSK=2 WIDE SEfiRCH 

1211 REM 
1220 riN=0 

1230 FOR I=X/i-MS/: TO X^+MS;i 

1240 FOR J=V;^-MS^i TO V^+MS?i 

1250 IF Kl OR J<1 THEN 1288 

1260 IF IM9 OR JMS THEN 12&-0 

12?0 IF fl$<I.J>-"fir>" THEN f1N=MN+l 

12S0 NEXT J 

1250 NEXT I 

1300 Zt="il H" 

1310 IF MN<=0 THEN 1340 

1320 Zf="aa"+STR*<f=!N>+" MIN£fS> " 

1330 Zt~Z$+srRt<M$'/.}+" MOVES ftWFlVB" 
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340 CL=1 ; N0=1 : RW=21 = T*="H" 

350 GosuB lese 

3<Sy RETURN 

369 REM 

370 REM CURSOR RDBRESS TO WITHIN MINEFIELD 

350 REM K;;=X AXIS. V^;=V AXIS 

351 REM 

350 PR I NT" a"; 

400 FOR 1 = 1 TO X:';+l:PRIHT"M".-NEXT I 

410 FOR 1 = 1 TO Vri+l: PRINT'")!!";: NEXT I 

420 PR I NT "11"; 

430 RETURN 

434 REM 

435 REM SET UP GRAPHICS CHflRflCTERS 

436 REM 

440 FOR 1=1 TO 9 
450 READ X 
460 FOR J=0 TO 7 
470 READ K 
4Su POKE X+J.K 
490 NEXT .T.I 
500 RETURN 

504 REM 

505 REM CHARACTER DATA 

506 REM 

510 DATA 7424.0,0,0/0,0,9,0.0 

520 DATA 7656.0,12,12.0.96,102.6.0 

530 DATA 7664.60.66.153,165.165.153.66,60 

540 DATA 7672. 28. 2S. 8. 62. S. 20. 34.0 

550 DATA 7624.153.90,60,255,255.60,90.153 

560 DATA 7632.146.84.56,254.56,84.146.0 

570 DATA 7640. 0.0, 0.24 ,.24, 0.0.0 

5S0 DATA 7643. 0.0. 0.0. 0.0. 0.9 

590 DATA 7616.20.44.68.254.63.68.124,0 

599 REM 

600 REM EXPLOSION 
601- REM 

610 POKE 36877.220 

620 FOR L= 15 TO STEP -1 

630 POKE 3687&'.L 

640 IF L=15 THEN Z$=":!i^^." 

650 IF L=U THEN Z$="n;" 

660 IF L=7 THEN Z*="BI:" 

670 IF L=3 THEN 2*="n9" 

6se CL= 1 +y.y. -m-i +vk = no= i 

690 OOSUE 1050 

709 FOR M=l TO 50: NEXT M 

710 NEXT L 

720 POKE 36877.0 
730 POKE 36873.0 
740 RETURN 
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1749 REM 

17?=:3 REN GET MOVE fiND RLflRM 

1751 REM 

1760 IF MNOe THEN 1796 

1770 GET GG*:IF GG*="" THEN 1770 

1730 RETURN 

1790 IF MS:-i=2 THEN SH=1S0 :SL=12S: GOTO 1816 

1S00 SL=130:SH=a35 

1810 POKE 36S78/15 

1529 FOR M=5L TO SH STEP 2 

1530 POKE 36376. f'1 

1S40 GET GG*:IF GG*0"" THEN 1920 

1850 FOR N=l TO 10 

1860 NEXT N 

1870 NEXT M 

ISS'0 POKE 36S76/0 

1390 FOR M=l TO 100 

1900 NEXT ri 

1910 GOTO 1820 

1920 POKE 36378,0 

1930 POKE 3SS76jQ 

1940 RETURN 

REflDV. 
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SPACEWAR 

DESCRIPTION 

The game is in two parts. The first sets up the parameters 
and prints the instructions. The second plays the actual 
game. The first part must therefore be loaded and run before 
the second part. When part one is run. It will display two 
pages of instructions separated by 'hit any key'. The next 
page will input skill level from 1-9 and then either the option 
of sun's gravity, black hole, or no gravity. The second part 
plays the game and keeps count of how many of the users 
spacecraft and the computers have been destroyed. The 
game is over when five spacecraft of either side have been 
destroyed. A new game will start after a reasonable pause. 
Written in Basic, the game is rather slow. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 
Joystick. 

RUNNING THE PROGRAM 

Load in part one and run. After a slight pause the instructions 
are displayed. When the instructions have been displayed 
and the two parameters have been input, the program will 
end. Load in part two, run, the actual game will then start. 
Use the joystick to change the direction of the ship, try to 
destroy the computer's ship. Use the fire button on the 
joystick to shoot at the computer's ship. Hitting the space 
bar at any time in the game will cause the player's ship to go 
into hyperspace. 

PROGRAM STRUCTURE 

The lines of interest in part one are as follows. 

60-70 Limit top of memory, 

80-120 Move the character generator and set up other 

graphics characters. 
130-460 Display the instructions. 
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470-520 
530-600 
610-620 



630-830 



Input skill level. 

Input option. 

POKE last two parameters into top bytes of 

memory. The locations are the two locations 

directly before the screen memory. 

Character data. 
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10 REM 

20 REM ********************#*************'****** 

30 REM 

40 P0KE36S79.27:PRINT"n VIC SPFlCEWflR" 

50 PRIHT"JM«i!UUST R MOMENT " 

54 REM 

55 REM LIMIT TOP OF MEMORY 

56 REM 

6Q X=PEEK<'56>-2 = P0KE56. ^ :P0KE52. X 
70 P0KE5 1 -■ PEEK ( 55 > : CLR 

74 REM 

75 REM MOVE CHflRflCTER GENERRTOR 

76 REM 

SO CS=25S*PEEK(:52>+PEEK<5n :S=7680 

50 F0RI=l:ST0CS+51 1 : POKEI . PEEK-; I+3276S-CS> :HEXT 

1 00 REFfDX : I FX<0THEN 1 36 

1 1 e F0RI=XT0X+7 : READ J = POKEI . J ■ NEXT 

120 GOTO100 

124 REM 

125 REM INSTRUCTIONS 

126 REM 

130 iNPUT":iaa instructions Ni«r;fl* 

140 IFRf="N"THEN470 

150 PRINT":7t'0U mRE EHGRGED in fl" 

160 PRINT" BATTLE TO THE DEATH" 

170 PRINT"WITH A KILL-CRflZED. " 

IS0 PR I NT "KAMIKAZE MIHGON IN" 

190 PR I NT "THE fiSTEROIIi BELT OF" 

200 PRIHT"MOHGO." 

210 PRINT"Wt'0UR ship is PURPLE" 

220 PRINT"ANIi THE MINGON SHIP" 

230 PRINT" IS IiftRK BLUE." 

240 PRINT";!!ITHE JOVSTICK CONTROLS" 

250 PRINT"VOUR DIRECTION. THE" 

260 PRINT"REIi BUTTON FIRES VOUR" 

270 PRINT"LRSER MISSILES. MAKE" 

2:50 PRINT-'fl HVPERSPflCE JUMP BV" 

250 PR I NT "PRESSING THE SPfiCE" 

300 PR I NT "EAR." 

510 PRINT":f!PRESS ANY KEY" 

320 F\$="" :GETni^:IFAf=""THEN320 

530 PRINT":7t'0U LOSE THE BATTLE" 

340 PRINT" IF you;" 

350 PR I NT "Ml ARE BLASTED BV fl" 

360 PRINT" MIHGON'S LRSER" 

370 PRIHT"JBE ARE SUCKED INTO fi" 

3:30 PRINT" BLACK HOLE" 

390 pRINT":i!C! COLLIDE WITH AH" 

4M1J PRINT" ASTEROID" 

-110 PRIHT":(!H ARE PULLED INTO" 

-l.'U f^'RIMT" THE SUM BV GRAVITY" 
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430 PRINT":>!I5 RRE RRMHED EV THE" 

44m PRINT" THE MINGON SHIP" 

450 PRINT"WPRESS flNV KEV" 

4ee f\$~" " ■■ GETfl* : I FR*= " " THEN460 

470 PRINT":i ENTER SKILL LEVEL" 

4S0 PRIMT";«fl dl^-TRlVIRL" 

490 PRIHT"S TO" 

500 PRIHT"M res- IMPOSSIBLE" 

510 Fl*="":GETfi*:IFfl$=""THEN51ti 

520 SL=VflL<fl*> - IF3L<1ORSL>3THEH470 

530 PRINT".T SPflCElJFiR OPTIONS" 

540 PRINT"WS 2l3BUH'S GRAVITY" 

550 PRINT "M aBSLflCK HOLE" 

560 PRINT"K JUBO GRfiVITV" 

570 PRINT";e« SELECT ONE OPTION": 0=0 

5S0 fl*= " " ■■ GETfi* - IFFI*= " " THEM5S0 

590 IFFlf="S"THENG=l 

600 IFF)$="E"THENG=2 

610 P0KES-2.SL: POKES- l.G 

620 END 

630 DflTfl716S.192.240. 127. 103. 34.54. 63v 50 

640 DflTfi7176.4. 14. 62. 227. 227. 62. 14. 4 

650 rifiTfl7184.50.b3.54.34.. 103.127.240.. 132 

660 DflTfl7192. 24. 24 .60. 36. 102.231.126.24 

679 BflTfl720S.24. 126.231. 102.36.60.24.24 

680 IiflTfl72 16. 3. 15.254.230.68. 163.252.76 
ess l!RTf=l7224,. 32. 1 12.. 124. 199. 159. 124. 1 12.. 32 
700 m TR7232 . 76 . 252 . 1 OS .- 63 . 230 . 254 . 1 5 . 3 
710 riRTR7240. 0. S. 12. 28. 56. 48. D. O 

720 riflTfl7248. 0.0.4S.56.23.12.0.0 
730 DRTfl7256. 0. 24. 24. 24. 24. 24. 0. 
740 DRTR7264. .. . . 62 .< £2 . 0. . 6 
750 IiflTfl7296. 8.112. 126. 102. 32. 43. 43. 
760 riRTft7304.22£:. 18.37.68.36.13.33. 193 
770 I(RTh7312. 0.. 43. 43. 32. 102. 126. 112.0 
730 I}RTfl7320.68. 170. 145.. O. 34.35. 137. 129 
790 IIRTM7328.. 153. S@>6&, 255.255. 60. 90. 153 
800 DflTR7336. 129. 137.85.34.0. 145. 179.63 
310 rifiTR7344.0. 14.126. 102.4.12.12.-0 
320 IiflTR7352. 198.33. 18.. 36. 68.. 37. 18.223 
830 IiflTR7360.0.12.12.4. 102.126.14.0.-1 
RERDV. 



68 



10 REM SPflCEWflR 2 

213 REM ******i4i*#*******************#***#******* 

30 REM 

40 C=22 : R=23 : S=?639 ■ fi=30720 ; DD^S? 1 54 

?9 Pl-37151 ■P2-3?152:SL=PEEK<S-2> 

60 Pi:iKE3bS?9. 27 : T=3 : CV=4 : CE=6 : Cfl=0 

70 CS=7 ■■ CQ=0 ■■ Cr'l=0 : K=- 1 : G=PEEf<<S-l > 

80 V=36S?S = S 1 =V-2 : S2=V- 1 ■■ D I NDC;: ■; 2 .• 2 > , OCf-i C 2 . 2 > 

90 FORI =9T02 • FORJ=0TO2 = X=X+I 

1 08 DC'; < I . J ) =x : oc"; < i , j> =x+ 1 6 = nektj. i 

110 DEFFNH';Z)=S+X+C-*V 

120 DEFFHE<Z)=PEEK<FHli<Z>) 

130 DEFFHR-:2) = INT<RNr<0#Z) 

140 POKEV-9. 255 : PRIHT'TE" ■ X=S+fl 

1 50 FOR I =y.J0y.+5ki5 ■ POKEX. T : NEXT 

160 P0KE3&S7S'.. 62 - F0RI=1 T03+2*SL 

170 X=FHR<:C>:V=FNR<R> 

IS0 PCiKEFNFl(9> . 46 ■ POKEFHfl<0>+fl. Cfl : NEXT 

190 IFGO1THEH220 

200 X= 11 : V= 1 2 ■■ POKEFNfl < > . 20 

210 FOKEFNfl<0)+H. CS : SX=X : SV=V 

220 I FG=2THEHSX=FNR < C ) = S V=FNR C R > 

230 X=FNRO:) ; V=FNR<R> : IFFNB<0)O32THEN230 

240 X)=y. ■■ E=V ■■ Q=FNH<0:) : u=-l ; 0=FHR<:3)-1 

250 POKEFNR<0> .. DC'iCU+l . 0+1 > ■• POKEFNfl<e>+fi. CV 

260 X=FNR CO- V=FNR C R > : I FFNB < ) O32THEN260 

270 H=X;L=V:K=FHfl<0>:M=l :N=FNR(:3>-1 

230 POKEFNH(0> . riC:iai+l . H+U ;POKEFNRC0>+fl,. CE 

290 fl*="";GETfl*-IFl=l*=" "THEND=FHR<C):E=FHRCR) 

300 GOSUE 1010=1 FFETHENX=D ■ V=E : PX=U = PV=0 ■ GOSUE680 

310 B=0 ■■ F=0 : IF J0THENE=1 

320 IF.J2THENE=-1 

330 IFJ1THENF==1 

340 IF.J3THENF--1 

550 I FB-0flHriF=0THENB=U - F=0 

360 U=B ■■ Li=F : IFG=0THEN4 1 

370 E=SX-D ■■ F=SV-E : J-SQR^E*E+F*F> 

380 J= < 20- J > /30 : T= 1 -J* J 

390 I FRND -; 1 > <JTHEH41 

400 E=SGNkE) :F=3GN<;F) : D=rt+Ii:E=E+F ^ 0010429 

410 ri=ri+u = E=E+o 

420 IFE<0THENE=R 

430 IFE>RTHENE=0 

440 IFD>CTHEND=0 

450 IFIi<0THEHD=C 

460 X=Ii : V=E ■ J=FHE<0> ■- IFJ=32THEH4S0 

470 IFJ=46ORJ=20ORFHftC0)=KTHENS20 

4 S0 I FHOT < X=SXRNDV=SV > THEH5 1 9 

490 R^="WERE SLrCKED INTO R ELflCK HOLE!" 

500 HC-WC+l GOT0970 

'j i PO\.\-.Q .. 32 ■■ FOKEi.'!+fl .. T : G=FHR < > 
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520 POKEQ .. DC*; < U+ 1 . 0+ 1 > ■ POKEQ+fl . CV 

536 J=0:IFFHRC3»SLTHEN560 

540 M=D-H • H=E-L ■ f1=SGN<M> ■ N=SGN<N> 

550 IFf1=0ORN=0THEHJ=l 

5t-0 H=H+M : L=L+N : IFH<0THEHH=C 

5713 IFH>CTHENH=0 

5S0 IFL>RTHEML=0 

5S0 IFL<0THENL=R 

em X-H:V=L 

eiCi IFFHE<0>=32THEH630 

620 MsFHR^SJ-l ;H=FHR(3:)-1 :G0T05be 

630 POKEK . 32 : POKEK+Fl.. T • K=FHflC0) 

640 POKEK . IiC:-: < M+ 1 . H+ 1 > : POKEK+fl > CE 

650 IFNOTCRNDaX. lOR(J=lftNriFNR<9)<SL))THEN670 

660 PX=r'1 ■■ PV=H •■ GOSUB680 

670 GOTO290 

630 2-P>^:*PV : POKEV. 8 ■ IF2=1 THEN J=10 

690 IFZ=-1THEHJ=9 

700 IFZ=0FiNDP^<=0THEHJ=ll 

71 e I FZ=eRNIiP V=0THEHJ=1 2 

720 FnRI = l TOl • X=J<+PX : V-V+PY ■' P0KES2. 230-1 

730 IFIOlTHEHP0KEZ.32:P0KEZ+Fl.T: IFX>CTHEHX=0 

740 IFX<@THEMX=C 

750 IFV>RTHENV=0 

760 IFV<0THENV=R 

77i^ E=FNE*:0) : IFIi=32THENS00 

780 I FHOT < E=46ORE=20ORFNfl < e ) =KORFHR < > =Q> THENSS© 

790 I = 10:HE^-<T I: GOTO S20 

800 Z=FNFi 03 > : P0KE2 .. J : P0KE2+FI. CM = NE>iTI 

SI Pi POKEZ, 32 : POKEZ+ft. T ■ POKEV. ■ RETURN 

S£h P0KES2. 230 ■ SC=X- 1 ^ IFSC<0THENSC=0 

S3M FC=X+1 : IFFC>C-THEHFC=C 

840 £R=V-1 : IFSR<0THENSR=0 

850 FR=V+l:IFFR>RTHENFR=R 

S60 FOPX=SCT0FC : FORV^SRTOFR : J=OC*^ < X-SC , V-SR > 

870 POKEFHfl < ) . J - POKEFHfl < ) +fl > CQ ^ NEXT V , X 

SSh pokes 1 .. 220 ■■ FnRJ= 1 5TO0STEP- 1 

8'=*fi POKEV . J : FORJ1=1TO50 ■ HEXTJl , J 

SfiP POKEV .. ■■ FORX=SCT0FC : FORV=SRTOFR 

910 POKEFHfi<0> . 32 ■ POKEFHfl ^O+fl. T : HEXTV, X 

92R IFPEEK<Q>O32THEN940 

9.-'':0 fl$="NERE VflPORIZEIi! " ^ WC=WC+1 ;GOTO970 

940 IFPEEK<K>O32THEN960 

<S50 ft:F= " TR I UMPHED ! " ■ UH=WH+ 1 : GOTO970 

969 RETURN 

970 POKEV-9..240:PRIHT":ii!IilKrT'OU "ifi$ 
9S0 PRIHT":«5BC0RE: VIC'SWC.:" VOU'SWH 
590 FORJ=1TO500 ■■ NEXT ■ GOTOl 050 

1000 END 

IRIO POKErD.. 127:P=PEEK<;P2>FIHD12S 

1 020 J0=- •: P=0 ) • POKEBD , 255 

m 



^336 P=F'EEK(Pl>:Jl=-<<PflHDS)=Gt>:J2=-<:<PflND16)=e> 

1 04Q J3=- < CPflNIr4> =C<) : FE=- C (FflND32 > =6 ) : RETURN 

1050 IFWH=5THEN10S0 

10ei3 IFWC=5THEN110e 

1070 GOTO 140 

10S0 PRIHT":i CONGRfiTULflTIONS!" 

1030 GOTOm© 

1100 PRINT'TJTO EflD" 

1110 FOR J= 1 TO 1 000 : NEXT : RUN 

REFiDV. 
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JOYSTICK TEST 

DESCRIPTION 

One valuable addition to the VIC is the joystick. It can make 
game playing much more enjoyable, and often easier. 
This program enables the user to check the position of the 
joystick as it is moved through the four cardinal compass 
points, and to see when the fire button is being pressed. 
The program can also be used as a short input routine within 
a main program, to see which direction the joystick is 
currently being pointed in, and again to check for depression 
of the fire button. 

This program will only work on a simple paddle switch 
joystick. To gain finer control you would require a 
potentiometer joystick, but programming for that is beyond 
the scope of this book. 

EQUIPMENT REQUIRED 

Basic VIC~20 plus joystick. 

RUNNING THE PROGRAM 

The data direction register, DD, is defined in line 40, along 
with variables for the output registers (PI and P2). 
When run, the program displays the cardinal compass 
points, together with an F (for fire!) at the top of the screen, 
and underneath that a value indicating which way the 
joystick had been moved: a value of zero would Indicate off, 
and a value of one, on. 

The routine in lines 120 to 180 checks for current direction 
from the output register, having previously set it back to 
'normal' i.e. the fire button is not depressed, and the joystick 
is stationary in a vertically upright position. 

PROGRAM STRUCTURE 

10-30 Message and title of program line 

40 Set up variables 

50-60 Print display on screen 

120 - 190 Joystick position reading subroutine 
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10 REM TEST IMG THE JOYSTICK 

2Q REM *******************#*************■**■***•** 

30 REM 

40 DD=37 1 54 : P 1 =37 1 5 1 : P2=37 1 52 

50 PRIHT"rW N E S W FB" 

€& GOSUBSG ■■ PRIHT"a" J3; J0; Jl ; J2; FB 

70 GOToee 

m REM 

Sd REM SUBROUTINE TO INPUT 

100 REM VALUES FROM THE JO VST I CK 

110 REM 

120 POKEDD, 127:p=PEEK-:P2)RNIH2S 

130 Ju=-CP=0> 

140 Pi:iKEDD..255:P=PEEK<Pi> 

150 J1=-<<PRNDS)=0> 

160 J2=~<:<:PflNDl6>=0) 

170 J3=-aFflHD4>=0) 

180 FB=-aPflHri32;'=0) 

190 RETURN 

200 

REanv. 
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DEFINE KEYS 

DESCRIPTION 

The four function keys on the right hand side of the VIC are 
probably one of the most neglected parts of the machine. 
Normally they are only used for simple messages e.g. Press 
F1 To Start The Game, normally to do anything else with 
them you would have to buy one of the expander cartridges 
from Commodore. 

However, this short (160 byte) machine code routine, which 
sits at the top of memory, will allow you to assign a separate 
function up to 8 characters long to each of the 8 keys. 
Take great care over the data statements in lines 100 to 220, 
as these are the heart of the program: if a mistake is made, 
the program will not work. 

Each function is defined in lines 450 to 460, where the back 
arrow stands for Carriage Return. In other words, pressing 
function key 1 (using the examples as given) will list a 
program, pressing function key 2 will just print up the word 
GOSUB, and so on. 

EQUIPMENT REQUIRED 

Basic VIC 20. 

RUNNING THE PROGRAM 

Enter the program exactly as shown, and then SAVE a copy 

in the normal way before running it. 

When RUN, provided you've entered everything correctly, 

the screen will clear and the message 'function keys defined' 

will appear, together with the friendly flashing cursor. Just 

pressing the keys will now bring the functions to life. 

The program NEWs itself after running, so that you only lose 

160 bytes from your VIC's Basic memory. To de-activate the 

function keys, hit RUN-STOP and RESTORE together. To 

get them back again, type SYS 7520. 

If you wish to have different functions assigned, simply 

change the data statements in lines 450 and 460. Putting a 

left-arrow after the new keyword will prompt a carriage 

return automatically. To get more than 8 characters, use the 
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keyword abbreviations as found in your manual e.g. P shift 
for POKE, and so on. 

PROGRAM STRUCTURE 

10-90 REM statennents and copyright message 

100-210 Data statements containing machine 

code routine 
250 - 260 POKE data into memory and calculate 

checksum 
270 If checksum disagrees, print error message 

290 Activate keys, erase previous functions 

300 - 330 Instructions in REM statements 
340 - 390 Perform function key definition 
400 End, and perform NEW 

450 - 460 Definitions for function keys 
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20 REM* * 

30 REM* riEFIHE KEVS * 

4S REM* * 

50 REM* EV TRVE TONG * 



60 REM* 
70 REM* 
8e REM* 



CO 7/7/32 



* 



90 REM**************** 



100 

lie 

120 
130 
140 
150 
160 
170 
180 
190 

200 

210 
220 
230 
240 
250 
260 
270 
2S0 
290 

300 

310 
320 
330 
340 
350 
360 
370 
3S0 
390 
400 
410 
420 
430 
440 
459 
4S0 



DftTfi 
DRTfl 

DftTR 

LflTR 

DflTft 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

DRTR 

REM 

REM 

REM 

POKE 

REni' 



129. 169. 12S. 141. .20. 3. 169.29 
141. 21. 3. S-3. 133.56.169.96 
133.55.96. 360.. 64. 169.0. 153 
191 . 29. 136. 20S. ^^2.96. 234. 234 
72. 133.72. 152.72. 165. 197. 197 
251.240.44.133.251.41.39.201 
39.208.36,24.165.251.42.41 
240. 172. 141 . 2. 240. 3. 24. 105 
8. 105. 128, 133.252; 169.29.. 133 
253. 160.0. 177.252. 153. 119.2 
200. 192.8. 203. 246. 132. 193. 104 
163. 104. 170. 104. 76. 191 . 234. 178 

LORD MflCHIHE CODE ROUTINES 



55,96-POKE56.29:CLR:Z=0'FOR .^=8 TO 95 

V:Z=2+V-P0KE 7520+X.V;HEXT X 

IF Z= 12270 THEN 290 

PRIHT"DflTR ERROR! RE-ENTER" : STOP 

SVS <7520>:SVS <7539) 

REM 

RCTIVRTES THE KEVS 
ERRSES THE FUNCTIONS 



SVS 7520 
SVS 7539 



N* 

THEN 370 

CHRRflCTERS 



REM 

REM 

REM 

FOR X-1 TO S^RERD 

L=LEN<N$>-IF L<=8 

PRINTX;N$:PRINT"8 

FOR V=l TO L:P=RSCCMIIi*<N$.V.l>> 

if p=95 then p=13 

poke 7607+v+8*x.p:next v^next x 

print"::fuhction keys befihed. " ^xr 

REM 

REM PUT VOUR OWN FUNCTIONS HERE 

REM < MfiXIMUM 3 CHRRflCTERS! > 

REM 

DRTfl " L I ST<-" . " GOSUE " . " RUN*-" . " PR I NT " 

DRTR "GOTO" . 'XHR*< " . "LORD" . "RETURN*-" 



MRXIMUM! ":STOP 



HEl'l 



RERDV. 
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U.S.A. SONG 

DESCRIPTION 

The program when running displays the U.S.A. flag and 
plays the 'Star Spangled Banner'. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

As no expansion is required it is just a matter of loading the 
program and typing run. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 



60 


Sets registers for three voices and indicates 




GOSUB to draw the flag. 


70 


Puts 10 in to volume register. 


80-150 


Main loop. 


8Q 


Read music data. 


90 


Set sound registers to 0. 


100 


Goto 160 at end of the music. 


110 


Pause. 


120 


Print value X. 


130 


Play Music. 


140 


Loop for duration. 


150 


Increase X and loop. 


160 


Check for break. 


260-1270 


Data for music configuration: Duration, Voice 1, 




Voice 2, and Voice 3. 


1450-1560 Draw flag. 
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10 REM USfl SONG 

20 REM 

30 REM 

40 REM PLFIV MUSIC 

€0 Gl =36376 ■ G2=36374 = G3=3SS75 = X=300 ■ GOSUi!l400 

70 P0KE36S78. 10 

80 REflDDC..Vl>V2A'3 

92 POKEG1.0=POKEG2.0:POKEG3.0 

100 IFDC=eTHENlS0 

110 FORI=1TO50:NEXT 

1 20 PR I MT " attBl^rsttWPlSlsMS" )i 

130 POKEGl . VI • P0KEG2.. V2 ■ P0KEG3, V3 

146 FORI = lTG100*riC:HEXT 

150 X=X+5:GOTO80 

168 SVS65234 

170 REM 

1S0 REM SONGTftELE FOR 

190 REM THE STAR SPANGLED 

200 REM BANNER 

210 REM 

220 KEM DURflTION COUNT 

230 REM IS -4- FOR Ft 

240 REM QUARTER NOTE 

250 REM 

260 DATfie. 195.225, 

270 DATRl.. 1S3.219, 

280 ]:iATA4. 163,209. 

290 DftTA4.133,205.- 

300 BATft4. 195,207. 

310 BmTRS. 209. 201,223 

320 HATAS, 219.. 159,231 

330 l!ATfll,2l5,199, 

340 DflTR4,209,2ei, 

350 IIATA4. 135,201, 

360 riATR4, 191,215,215 

370 BATA8, 195,225,215 

380 IIMTA2, 195,225, 

390 IIATR2, 195,225, 

400 DATfi6, 219, 209, 232 

410 DATA2,215..2l5, 

420 riATfl4,209,2l9, 

430 D ATMS , 207 , 225 , 225 

440 DMTfi3,201,221,221 

450 riflTfll,207,221>225 

468 DATA4,209.219.225 

470 DRTA4,209,232, 

480 DRTft4,195,225, 

490 IJATA4, 183,219. 

500 IiRTA4,163,209, 

510 IiRTAS, 195,225, 
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520 LflTRl.lS3.£19. 
530 l!RTfl4. 163.209/ 
540 DRTR4. 183.209. 
550 DflTH4. 135.207. 
560 rflTH3.209.201.22S 
570 DRTfl3. 219. 199.231 
580 riRTfll.215.199. 
590 DflTfl4.209.2ei. 
600 ERTfi4. 183.201. 
6ie IiflTH4. 191.215.-215 
620 DRTRS. 195.225.215 
630 PRTR2.195.225> 
640 rRTR2. 195.225. 
650 IflTH6.219.209.232 
660 DflTfl2.2i5.215. 
670 DflThl4.209..219. 
630 DfiTflS . 207 .. 225 . 225 
690 DRTflS. 20 1.22 1.221 
700 DfiTfl 1.207. 22 1.225 
710 DflTfl4.209.219.225 
720 DftTfl4.209.232. 
730 DftTfl4.195.225. 
740 DftTfl4. 183.219. 
750 DftTH4. 163.209. 
760 DftTft3.219.215.232 
770 DftTftl.219.215.232 
730 riflTR4 .219. 209 . 232 
790 DftTR4.221.2i5>232 
yee DflTft4. 225. 219.232 
810 riftTflS.225.219.232 
820 DflTR2.221.215.232 
330 DflTfl2.219.219>232 
840 DflTfl4.215.225.231 
850 DflTfl4.219.232.232 
860 DflTR4. 22 1.235. 231 
870 DRTRS. 221. 195.235 
380 DRTfl4. 22 1.195.231 
890 DflTfi6.219.209.225 
900 DflTR2.215.215.225 
910 DflTfl4.209.219.225 
920 DflTRS . 207 . 225 . 225 
930 DflTft2.20i.221. 
940 DRTfl2 . 207 . 22 1 . 225 
950 DRTfl4.209.219.225 
96Q DflTfl4. 133.228.209 
970 DflTfl4. 191.215.215 
930 DRTflS. 195.1 95. 215 
990 DRTft4. 135.225. 
1 000 DflTfi4 . 209 . 209 . 225 
ItUy DflTfl4.209.21fi.221 
lit; -ti DflTfl2 .209.219. 225 
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^330 DflTfla.207.215,225 
1040 ]]flTfl4. 201 .£21.221 
1050 BFlTfl4.. 20 1.22 1.221 
1060 riFlTfl4.201,219.225 
1078 riflTfl4,215,215.221 
1030 riflTfl2.221.215-.221 
1090 DflTfl2..215.2l9.219 
1100 riRTR2.215.221.215 
1110 rftTfl2.209.223.209 
1120 IiRTh4.209.225 



r/C'C; 
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1 130 DRTflS. 207. 195. 225 
1140 rfiTfl2. 195/225.. 
1150 DRTfl2.19S.221. 
1160 ItflTfl6.209.219.225 
1170 DflTfl2.215.225. 
1180 DflTfl2.219.235. 
1190 DflTfl2. 22 1.235.. 
1200 DflTfl3.225.237.237 
1210 DflTfl2.209.228.22S 
1220 DflTfl2.215.227.223 
1 236 DflTfle . 2 1 9 / 225 . 232 
1240 DflTfi2.221.225.232 
1250 IiflTH7..2l5.225.231 
12^.0 DflTftl4. 209. 232.225 
1270 DRTfl. . . 
1230 REM 

1290 REM ************ 
1300 REM *INTER*PRET * 
1310 REM *VOUR DflTfl* 
1320 REM ************ 

1340 INPUTfl :F0RI=flT0fl+95STEP5: PRINT r'Dt" ; NEXT ^ END 

1350 REM 

1360 REM ************ 

1370 REM * INTERPRET * 

13S0 REM *V0UR DflTfl* 

13<=?0 REM ************ 

1400 REM 

1410 REM *********** 

1420 REM *DRRH FLAG* 

1430 REM *********** 

1440 REM 

1450 PR I NT ":i" J 

1460 P0KE36867.44 

1470 FORI=1T011 

1480 PRINT"ffla * 

1490 NEXT 

1500 PR I NT "a"; 

1510 FORI^iTGS 

1520 PRINT"Sa *****" 

1530 PR I NT "H" J 
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1540 PRINT"S£» *.***.*" 
1550 NEXT 
1560 RETURN 
REftDV. 
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DIGICLOCK 

DESCRIPTION 

A digital clock showing hours, minutes and seconds in large 
characters is displayed on the screen. The clock will display 
the correct time (entered by the user) until the machine is 
switched off, A program which could be modified to act as a 
stop watch or display any digital value. 

EQUIPMENT REQUIRED 

A basic unexpanded VIC-20. 



RUNNING THE PROGRAM 

The program starts with a prompt to input the correct time, 
this is input in the format HHMMSS where H is the hour 
(using a 24 hour clock), M is the minutes, and S the seconds. 
As soon as the return key is pressed the clock is started. 
While the face is displayed it is possible to change the shown 
time at any point by simply entering return. 

PROGRAM STRUCTURE 

The more interesting lines for this program are as given. 

40 Displays a white screen. 

50-140 String array holding large numbers. 

150 Two dots to separate hours from minutes and 

minutes from seconds. The dot separating 
minutes from seconds flashes every second. 

160-190 Inputs the time. 

200-270 Display around the numbers. 

280-310 Prints enlarged numbers for time plus the dots. 

320-330 Sets start of video map. 

340-370 Makes dots between minutes and seconds 
flash. 

380-390 Pause and beep each second. 

400-410 Loop again or enter another time. 
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i& REht DIGICLOCK 

£e REH ****:*#*********#******•****************** 

3i3 REM 

4i3 P0KE36375.25 

44 REM 

45 REM LARGE NUNEER CHflRflCTERS 

46 REM 

50 R$<6j>="«ia *>iii zi mnn & sail si fmn S" 

S& R*<l> = "ffl S »£«! 5J ©Mil S KOJHf S RSII S B" 

80 f\$<3>="m SfiMm n :(!ii[ ^sai :4 jiiai «" 

sei R$<4;="0iE) EiaiBa:^ jsei M»]iii £) s^aai £i a" 

100 R$(;5>=="fl:3 :t!]ii 9 fMitiA mmm n ;?iii "" 

110 R$':6>="0i:^ WPMn fMiiu stisiB r-i :^bbi s" 

130 R$CS) = "flE<) aiSiJIBSi :«!X«I 9!]lll £1 :t!lBI M" 

140 R$<d;)="0:-) vfiiB ^ >sii e«ai :a :i!3iii S" 

150 i(P:$=">Ji;sit?]»rrn" :pRiHT":ii" 

160 PRINT" HHMMSS 

1?0 PRINT"'FOR EXRMPLE 001220 

1 30 I NPUT "SUSftlBftWfJftir IMEW»DI»BI" ; TR* 

190 IFLEH<TR$?=bTHENTI*=Tfi|: 

200 PRINT" iCftftftWtiSi"; :F0RI = iT019 

210 PRINT"*".; :NE>iT; PRINT"! ■" 

220 F0RI=1T03 

230 PRINT"! Z4»" 

240 NEXT 

250 PRINT"i®!!D!lB»B!Kft»miJUR«l MIN.M ^^EC. WWsteftlRWW 

260 PRrNT"n";-PRINT"a-"".; :F0RI=1T019 

270 PRINT"."; •■NEXT;pRIHT"a'B" 

230 PRI NT " SliKM!I(SlBOHM«" .: : FDR I = 1 TOS 

290 pRiNTflf <vflL<MiD$<Ti$. I. i)>>"irrrn"; 

300 I FI=20R I =4THENPRINTIiP$ ; 

310 NEXT 

320 T.T=409S 

330 I FPEEK >: 643 > =30THEHT J=7680 

340 P0KE(TJ+234.:>,31 :P0KE<TJ+278).S1 

350 T*=TI* 

360 IFTI$=T$GOTD3b0 

370 POKE-;- TJ+234 > .. 32 : P0KE<T.J+273) , 32 

380 F0RX=1 TO200 : NEXT : P0KE3637S.. 15 - POKESt'iSre , 255 

390 POKE36878.00 

400 GETflf- IFR$C>"^"GOTO230 

410 

RERDV. 
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LEAP FROG 

DESCRIPTION 

Leap Frog encourages the player to develop mental agility. 
There are two sets of frogs, five of one colour and five of 
another. The player has to move them one at a time to the 
other side, until the positions are reversed. There are a 
minimal number of moves in which the game can be 
completed but praise is always given at the end of the game. 
An interesting feature of the program is the use of small size 
numerals, created like the frogs by using programmable 
characters. 

EQUIPMENT REQUIRED 

Basic VIC-20 plus a minimum of 3K memory expansion. 

RUNNING THE PROGRAM 

There are eleven numbered spaces displayed on the screen, 
above the five spaces on the right side are five green frogs, 
and above the five spaces on the left are five white frogs. A 
frog can only be moved into an empty space and can not 
jump over more than one frog to get there. A prompt 
requests the move, simply enter the number of the frog you 
wish to move, invalid moves will generate the relevant error 
messages. When you have completed the game the 
computer will display your score. 

PROGRAM STRUCTURE 

The lines of interest in this game are as follows. 

40-50 Limits the memory. 

70 GOSUB to routine for setting up the frogs 

characters. 
100-160 Sets up different strings for different frogs 

-white or green, jumping or stationary. 
210-230 Sets up the array for where the frog is and 

which colour it is. 
260-320 Prints actual display on the screen. 
330 GOSUB to routine for inputting your move. 
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350-380 Checks for legality of your move. 

400-510 Motivates Xhe frog. 

520-560 Reviews the line up at the end of the game. 

570-900 Prints informative messages. 

910-950 End of program. 

960-1050 Inputs moves using routine at line 1390. 

1060-1380 Prints messages of illegal moves and reprints 

display. 

1390-1480 Actual input from Keyboard. 

1490-1550 Sets up graphics characters. 

1560-1700 Data for characters. 



_ifc_ ■ 
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10 REN LERP FROG 
20 REM 
30 REM 

34 REM 

35 REM LIMIT TOP OF MEMORV 

36 REM 

40 POKE 5t:.PEEK<56:5-2;pOKE 52. PEEK < 56) -2 

50. POKE 5 1 , PEEK f 55 > •■ CLR 

60 PRINT":i":PuKE 36979.42 

70 GOSUB 1490 

80 POKE 36865.255 

90 DIMftClS) 

54 REM 

95 REM SET UP STRINGS 

96 REM 

100 F^(0>=" " 
lie F$<1>="ID" 
120 F*C2>="*" 

130 FiH*a>="irf'" 

140 fiH*<2>="sf?" ■ 
150 Rm<3>=F$<0') 
160 PP$="i:ftMfli!)" 
178 REM 

130 T1*=":3:IS S" 

150 Tl$=TU+CHRt<13^+" 

200 T1$=T1$+"^ LEAP - FROG *■" 

204 REM 

205 REM PUT FROGS INTO FiN ARRhV 

206 REM 

210 FORK=1T05 

220 R-:K>=i:fl(K+6>=2 

230 HEXT--fl<6>=0 

240 C=0 

250 PRINTTl*- PRINT: PRINT 

254 REM 

255 REM PRINT FROGS ON THE SCREEN 

256 REM 

260 FORK=1T011 

270 prihtf*(Fkk:p>; 

280 MEXT:PRINT"J!l«" 

290 PRINT 

300 PR I NT " mai 23456789 = .: " 

310 PRINTPPfWeWflifl" 

320 PRINT" REENTER VOUR MOVE! - 9\ 

r<^-iQ GOSUE960 : FF=0 

340 PRINT"W":Tri=1500 

350 rFFl';S)=0THENt060 

360 I FRKS < 3~E > :>2THEN 1 090 

3?i-i iFFi'.:E:nHeNiii0 

380 I FE> 1 1 THE! IFF= 1 : E= 1 2 
390 X=0 
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394 REM 

S95 REfl JUMP FROG 

396 REM 

400 PRINTPP* ; TflB< S- 1 > ; •■ 

410 IF ft<S)=l THEN PRIHTflN*<:i); ^0010430 

420 PRIHTRNf<2>.; 

430 FORL=1TO500:NEXT 

440 PRIHT"irRN*f3); 

450 FORL= 1 TO50 - NEXT 

460 PRrHTPP*.;TH£(E-l>.:RN*(R<S>>J 

470 FOR L=l TO 300" NEXT L 

430 FORK= 1 TO 1 50 ■ NEXT 

450 PRINT"ir'F$<fi<£)>J 

500 C=C+1 

510 R<£y-FiCB') ■H<S>=0 

520 F0RI=1T06 

530 X=X+R<I>*10tI 

540 NEXT 

550 I FFF THEN 1220 

560 IFINT<X><>222220THEH310 

564 REM 

565 REM FINISHED 

566 REM 

570 P0KE36869. 240 : PRINT "»WM«««" '■ IFC<60THEN62e 
5S0 POKE36S69.240 

530 PRINT" :«:< " 

600 PRIHT-nr-WOU FINISHED. RT LAST!!!" 

610 GOTO650 

620 IF C<50 THEN690 

630 PRINT" X^a " 

640 PRINT"n*IOT ft BAD RESULT!!!" 

650 PRINT "]«3 VOU NEEDED" C'MOVES" 

660 PRIHT":« TO SOLVE THE PROELEM" 

670 PRINT"VOLl RERLLV SHOULD DO BETTER! I" 

680 GOTOSS0 

690 IFC<:40THEH760 

700 PRINT" sna( " 

710 PRINT "://ERy WELL DOHE! ! !" 

720 PRINT"Wt'OU succeeded TO" 

730 PR I NT "COMPLETE THE GfiME IN" 

740 PRINT"ONLV"C"MOV£S - RH" 

750 PRINT"HBOVE RVERflGE RESULT !": GOTO880 

760 IFC=35THEN330 

770 PRINT" :-n:< " 

730 PRIHT"n:€XCELLENT! ! VOU ARE R REAL EXPERT!! 

790 PRINT":wyOU HfiVE DONE IT IN" 

300 PRINT"uHLV"C"r'10VES. THIS" 

310 PRINT" IS RLP10ST THE BEST POSSIBLE RESULT." 

820 GO rosso 

S30 PRINT" Snsi " 

340 PRINT"n»::OHGRRTULftTIOHS! " 



856 PRINT"NOEOrV CRN DO IT BETTER" 

see print"Wt'ou cofipLETEn the grme in 35 steps." 

870 PRIHT"THIS IS THE ABSOLUTE MINIMUM." 

ss-gi PRINT ":«a40ULri vou like to plrv bghih ? <v/n>'* 

S90 GETfl^:: IFfl*O"V"i=iNDfl*O"N"THENSS'0 

Sm IFft$="V"THENP0KE36£:£9. £55 : i3OTO210 

904 REM 

905 F:EM EHD 

906 REM 

910 POKE 56..PEEK<56>+2 

920 POKE 36S69.240 

930 POKE 36979.27 

940 PRINT-WSTHRNKS FOR PLRVING ^LEflP-FROG-- -" 

950 END 

954 REM 

955 REM CRLCULflTE MOVE FROM ROUTINE AT 1399 
556 REM 

960 POKE198/0 

970 I(EL=0;pRINT"n" 

930 PRINTTflE<2S>;"SFR0M m% 

990 FRINTTRf<2'8>."a Bl"; 

1000 GOSUB1390:IF DEL THEN PRINT"n"; ^GOTO 970 

1010 3=VRLt:Cir): PRINT" S TO m\" i 

1020 FOR 1=1 TO 11: IF fla:)=0 THEN c$=str$ci:j 

1030 NEXT 

1040 pRiNT"iia"Cf; 

1050 E=VHL<C^); RETURN 

1054 REM 

1055 REM ILLEGAL MOVE 

1056 REM 

1060 PRINT" a^TTHERE IS NOBODV RT" 

1070 PRINT" a^OSITIOH #"S"ll.i!r 

1080 PRINT" EfLERSE TRV RGRIH! " :GOTO1190 

1090 PRINT" a^HEV. I CANNOT JUMP" 

1100 PRINT":TrHflT FAR! !":GOTO1190 

1110 PRINT" SJOIEV. WHAT DO VOU THINK"; 

1120 PRINT" S^r'OU ARE DOING??" 

1130 PRINT" WriHAT IS MV BEST" 

1140 PRINT" SFR I END.. SITTING ON" 

1150 PRINT"a«=iEHT HR. "E">l! ! VOU" 

1160 PRINT" SHAN'T EXPECT ME TO" 

1170 PRINT" SeLRND ON HIM!?! PLEASE" 

1130 PRIHT":irRV AGAIN" :TD=€000:GOTO12e0 

1190 TIi=3000 

1 200 FORK= 1 TOTD : NEXT 

1210 TD=30O0 ; GOTO250 

1 220 PRINTPP^; TAE< 1 1 > ; F*<0> i "H" ; 

1230 PRINTF^CACEO; 

1240 r(.r= "■:#*.*•;' nKBaiaii" 

1 250 PR I NT" mr<M' .. TfiB' 12); 
J 260 FORK=1TO20 
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1270 PRINT" a"flt.: ■■f\=SlH<3> 
1280 PRrNT"l"ft*; :fl=JIH<3> 
1290 HE^=:T; PRINT" MsteRtel" 

1300 PRINT". 



1310 PRINT" SWOW LOOK WHfiT VOU HAVE DONE! !" 

1 320 PR I NTPPf ; " H" .; TRB ( 34 > . AN* <Q') . 

1330 FORK=72TO03TEP-4 

1340 PRiNTF«^<:fl<;E>x; "ll";FlN$C0>; 

1350 FORL=iTOK-NEXT 

1360 PRINTFS<0> + "IIW"; 

1370 NEXT:fi<12>=0 

1 330 PRIHTF*<0) .: "TTTm" • GOTOSS0 

13S4 REM 

1335 REri INPUT MOVE FROM KEVBOflRD 

13Se REM 

1390 P5ETC*: IFC*=""THEH1390 

1400 IFC*=CHR$<20.nHEHDEL=l ^RETURN 

1410 1 FC$< " 1 " ORCt > " 3 " THEN 1 390 

1420 PRIHT"5!"C*; ;IFC*<>"r'THENRETURN 

1 430 I FFl < 3 ) -*fl •;• 9 > *fl a > *Ft ( 1 1 > THENRETURN 

1440 PRINT" a sr; 

1450 GETCC*: IFCC*=""THEN1450 

1460 IFCC*=CHRf';£'0>THENriEL=l -RETURN 

1470 IFCC*<"0"ORCC*>"1" THEN 1450 

1480 Cf=C*+CC*; PRINT" a"CC*; : RETURN 

1484 REM 

1435 REM SET UP GRAPHIC CHFlRRCTERS 

1486 REM 

1490 FOR 1=1 TO 15 

1500 REhD X 

1510 FOR J=0 TO 7 

1520 READ K 

1530 POKE X+J^K 

1540 NEXT J, I 

1550 RETURN 

1554 REM 

1555 REM CHfiRflCTER EflTfl 

1 556 REM 

1560 DflTfl 7424.. 0.0. 0.0.. 0,0. 0.0 
1570 I'PTfl 7560. 16.43; 16. 16,. 56..0. 0.0 
1580 DflTfl 7568. 56. S. 56. 32. 56. 0.0.0 
1590 BftTfl 7576.56.8.56.3,56.0.0.0 
1600 DfiTfl 7534.40.40.60.8.8*0.0.0 
1610 DRTfi 7592.. 56.. 32.. 56. 8. 56, 0.0.0 
1620 DflTfl 7600.56.32.56.40.56.0.0.0 
1630 riflTfl 7608.56.3.16.16.16.0.0.0 
1640 DflTfl 7616.56.40.56.40.56.0.0.0 
1650 DflTfl 7624.56.40.56.8.56.0.0.0 
1660 DflTfl 7632.46.106.42.42.126.0.0.0 
1 670 DflTfl 7640 . 36 . 1 OS. 36. 36 . 1 26 . O . O. O 
1 630 DflTfl 7664 . 24 . 1 39 . 255 . 60 .126. 66 . 1 95 .• 
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1630 DRTfi 7672. 153. 189.. 1 26, 60. 126. 66.. 66 ..195 

1783 DRTfi 7552; 56.. 4G. 40.416.56.0.0.0 
REflDV. 
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RUBIK'S CUBE 
DESCRIPTION 

A two dimensional version of the popular cube designed by 
Messer Rubik. Tfie game demands a high degree of con- 
centration to solve the puzzle. All six faces of the cube are 
shown and one has to remember where and which side 
joins what. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

The primary instructions involved in the running of the game 
are to rotate a face of the (flat) cube. An anti-clock wise 
rotation is achieved by entering the number of the face to be 
moved. To rotate a face in a clockwise rotation a minus sign 
must be typed before the number. 

Once you have completed the cube, or have become stuck, 
hit the space bar, this will result in the end of the game. A 
choice of a different number of twists is given at the 
beginning of the next game to facilitate ease or difficulty in 
completing the next game, 

PROGRAM STRUCTURE 

Below is a listing of the more interesting lines that make up 
the program for this method of playing the Rubik's Cube. 
40-50 Limits the top of memory for graphics characters. 

70-80 Inputs the initial number of twists to mix up the 

cube. 
100-230 Displays the cube on the screen. 
240-290 Array F holds the center poke location for each 

face. 
300-310 Holds the character array for each face. 
320-420 POKE locations for the rest of the pieces in each 

face. 
520 GOSUB to create characters. 
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530-570 POKE for character face and colour. 

610-810 Rotates the faces. 

890-1010 Inputs moves and decisions. 

1020-1070 Inputs the cycle for mixing the cube rather than 

have this as a random factor. 

1060-1150 Sets up graphics characters. 

1160-1220 Character data. 



I -.1 . * ^ 
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10 

20 
30 
34 
35 
36 
40 
50 

e@ 

70 
86 
90 
94 
35 

se 

100 

110 

120 
130 
140 
150 
160 
170. 
130 
190 

200 

210 
220 
230 
234 
235 
236 
240 
250 
260 
270 
280 
290 
2^4 
295 
29€ 

300 

310 
314 
315 
316 
320 
330 
340 
350 
360 



REM RUB IK'S CUBE 

REn 

REM 

REM 

REH LiniT TOP OF MEMORV 

REM 

POKE 56iPEEKC56>-2:P0KE 52. PEEK (56:) -2 

POKE 5l.PEEK(55>:CLR 

BIMG<5. 12j ■ ZZ=30720 ■ P0KE36879. 127 

PRINT":7-<LIMBER OF TWISTS TO MIX" 

INPUT" a IB";P 

N=l 

REM 

REM DISPLftV CUBE 

REM 

PRINT-'n" 

HI MP < 5. SO 

PRIHT'-JWa 

PRINT" S 

F0RI=1T04 

PRINT" d 

PRINT" a r- 



-i" 



15 

I 

+- 



I" 



I": NEXT 
H 1— 



PRINT'"ai4 
F0RI=1T04 
PRINT" 3! 
PRINT" a '— 
PRINT" a 



)1 
I 



12 
I 



4- 



1" 

i" 
jti 



NEKT 



16 I" 
F0RI=lT04:pRINT"a I i":HEXT 

PRINT" a ' '»" 

REM 

REM SCREEN LOCATIONS OF CENTRE OF EACH FACE 

REM 

F<0. J =7680+8+ < 12*22) 

f(. 1 . 0> =7680+ 13+ CI 2*22) 

F<:2,.0>=7630+18+C12*22) 

F < 3 J > =7680+3+ O 2*22 :) 

FC4. 0) =7680+8+ < 6*22) 

FC5. > =7680+3+ CI 3*22 > 

REM 

REM CHfiRftCTER FOR ERCH FRCE 

REM 

C>:0>=5S;CC1>=59-C<2>=60: 

C<3)=61 :C<:4>-62:C<5>=63 

REM 

REM RELATIVE POSITIONS OF PIECES TO CENTRE 

REM 

F0RI=0T05 

K=FCI.0> 

Fa. l>=K-23 

FCI.2)=K-22 

Fa.3>=K-21 
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370 Fa.4>=f<+1 
3Stt F<l;5;'=K+23 

400 Fa.7)=K+21 

41a Fa.8)=K-l 

420 HEXT 

430 FORI=0TO5 

440 FORJ=0TO93TEF3 

450 REAHN 

460 F0RK=1T05 

470 RERriH2 

430 G<1.J+K)=F<H.N2> 

450 NEXT 

500 NEXT 

510 NEXT 

520 GOSUB 1080: POKE 36863.255 

525 REM mSPLflV HCTUfiL PIECES OF CUBE 

526 REfl 

530 FORJ=0TO5 

540 FORI=0TO3 ^, ,^ ^„ 

550 P0KEFU.O.C<:J):P0KEF<J.I)+22.C<J>-58 

5^0 NEXT 

570 NEXT 

5S0 IFP<=0THEN1010 

590 GOTO8S0 

559 REM 

600 REf) MOVE PIECES 

601 REM 

610 Sl=PEeK<:F<I.l>> 

620 S2=PEEK<F<I.2>> 

630 F0RJ=1T0d 

640 POKEFa . J> . PEEK<F<: I , J+2> ) ^ NEXT 

650 P0K£Fa,7>/Si 

6€.Pi P0KEF<I.3)/£2 

670 S1=PEEKCGCI.1>> 

ese S2=PEEK<G<I.£>> 

690 S3=PEEK 0? C 1 , 3 > > 

700 F0RJ=1T09 

710 P0KEG<I.J>.PEEK<Ga,J+3>) 

720 NEXT 

730 POKEG<I,10).S1 

740 P0KEG<I/11).S2 

750 P0KEGa.l2>/S3 

760 FOR J=0 TO 5 

770 FOR 1=0 TO S 

7y0 POKE F<J.. I>+ZZ.PEEK«:F<J,I>>-58 

790 NEXT I 

ana NEXT .T 

CIO RETURN 

; eii Ttfliri'l . 7 . 6. 5> i . 1 . 8. 7> 5. 3/ 2> 1 / 3. 5/ 4,. 3 



830 DflTJ=l4,5.4,3.2. l/8.7.5.5.4.5.0.5.4>3 
840 HflTR4.3.2.1j3j 1 . 8^7. 5^ 7^ 6. 5. 1.5;. 4, -3 
853 DflTfl4. 1/3.7.0. 1.8,7.5. 1 .S. 7.2..5.4.3 
360 rifiTfl2. 5. 2. 1.1.3.2,1.0.3.2.1.3.3.2.1 
870 DRTfie. 7.6.5. 1.7.b.5.2.7j6.5.3.?.'6.5 
3S0 F0RX=1T0P ■■ I=INTCRHria >*6) ■ C-iOSIJE600 : HEKT 

884 REM 

885 REM INPUT MOVE 

886 REM 

890 PRIHT"aflaiOVE:l~b":PRIHT"a OR-" 

900 IFM>2TH£WP0KE76SQ.173 
910 IFM<2THENPOKE7680>ie0 

929 POKE3S400.0:GETft* 

930 IFR*=""THEN920 

940 I Ffi*= " - "THEHM=M+2 : M=f1RND3 : GOTOS90 

950 IFflfO" "THEH970:REM RESTART 

960 POKE 56 . PEEK < 56 > +2 •■ P0KE36869 . 248 ■ RUN 

970 fi=VflL<Fi«^> ■ IFfl=0THEN920 

988 IFFf>6THEH920 

9S^ FURH=1T0M - I=fl-1 ^ OOSUE600 ^ NEXT 

1000 n=l :GOTOS90 

1010 IFP=0THEH390 

1020 IHPUT"»:RnUP CVCLE- STRING"; Of 

1030 INPUT"»M1£ER OF CVCLES iBiiKaasar' .>JC 

1040 IFMC<1THEN1020 

1050 FORCV=1TONC: F0RGG=1T0LEN<G*> 

1060 r=vflL(:Mirf$<G*.GG. i>>-i ^ GOSUE600 = next = next 

1070 GOTO 1030 

1074 REM 

1075 REM SET UP GRAPHICS CHflRflCTERS 

1076 REN 

1080 FOR 1=1 TO 7 
1090 REFlIi X 
1100 FOR J=0 TO 7 
1110 REPlD K 
1120 POKE X+J.K 
1130 NEXT J 
1140 NEXT I 
1150 RETURN 

1154 REM 

1155 REM CHFlRflCTER DftTfl 

1156 REM 

1160 DRTFl 7424.0,0.0.0.0.0.0.0 
1170 DFlTR 7652.. 0. 127. 127. 127. 127,. 127. 127. 127 
1180 DRTR ?643.-0. 127.. 127. 127.. 127.127. 127.. 127 
1190 DRTR 7648.0.127.127.127.127.127.127.127 
1200 URTR 7656.0, 127. 127. 127. 127. 127. 127. 127 
1210 BhTR 7664.0. 127. 127. 127. 127. 127.. 127. 127 
1220 I'RTR 7672.0.127. 127.. 127. 127.127.127. 127 
RERrV. 
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BOSS PUZZLE 

DESCRIPTION 

A test of mental agility. The aim of the game is to rearrange 
numbers from to 15 and one space into the following order; 

12 3 4 
5 6 7 8 
9 10 11 12 

13 14 15 

To start, the numbers are randomly placed in the grid. By 
moving numbers into and out of spaces, they can be 
rearranged. While the game is being played, a clock ticks 
away in the top right corner of the screen and a counter 
counting the number of moves taken Is displayed in the top 
left corner. A colourful display, and quite enjoyable to play. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, the program displays one screenful of 
instructions, After hitting return, the grid with numbers in 
order will appear and then start to shuffle. When the 
shuffling is completed, the clock starts and the game begins. 
The directions are obtained by pressing the function keys. 
The directions corresponding to each function key are 
displayed constantly on the top of the screen. 

PROGRAM STRUCTURE 

The lines of interest in this game are as follows: 

70 Subroutine to pause. 

100-130 Subroutine to display square containing number 

at coordinates p,q. 
160-320 Print instructions. 
350-420 Set up variables required. 
450 480 Draw board on screen. 



m 



510-530 Fill in squares. 

560-620 Shuffle squares with random moves. 

650-670 Start game. 

700-720 Check to see if the squares are in order, 

750-940 Accept and perform move input using function 

keys. 
970-1070 Give nasty display. 
1100-1190 Give result and input for another game. 
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10 REM BOSS PUZZLE 

2Q REM *:+;**************•**•********************* 

3i3 REM 

40 GOTO 160 

50 REM PAUSE 

es REM 

70 FuRX=lTOlQ00 : HEKT ■ RETURN 

3S REM DRRW SGUflRE AT COORDIHflTES P.G 

30 REM 

100 H=SCP..Q):PRINT"3".:LEFTf<R$..5+3*P>; 

110 PRIHTLEFT$(;ri$..4+3*Q>;"a";HID*(C0$.H,. i>.; 

120 PRINT" J!1MI"JN;"II".; :IF H<10THEN PRINT" "; 

130 PRIHT":«Bai ".-RETURN 

140 REM INSTRUCTIONS 

150 REM 

160 C5=363e.'3-P0KE C5.PEEK>;C5)0R2:P0KE 36879 .-27 

170 PRINT"n:fflE0S3 PUZZLE" 

ISO PRIHT";i»S»'OU WILL EE SHOHH fl 4" 

130 PRIMT"EV 4 MATRIX OF SQUARES" ; 

200 PR I NT "NUMBERED 1 TO 15.. WITH"; 

210 PR I NT "ONE SQUARE MISSING." 

220 PRIHT")»ITHE COMPUTER WILL THEN"; 

230 PRINT"SHUFFLE THE SQURRES" 

240 PRIHT"RhHDOMLV. " 

250 PRINT"WTHE OBJECT IS TO SLIDE"; 

260 PR I NT "THE SQUARES BACK INTO" 

270 PRIMT"THEIR ORIGINAL ORTER" 

230 PRINT "US INS THE FUNCTION" 

290 PRIHT"KEVS. " 

300 PRINT"M(!HPRESS SRETURNB TO START"; 

310 POKE 193.0 

320 GET fl$;IF ft*<>CHR*a3> THEN 329 

330 REM SET UP VARIABLES ETC 

340 REM 

;-;Sj.^ SB=36S79 = V0=36S78 ■ S 1 =36?!74 : S3=36S76 

350 POKE SB. 26: POKE vn,5 

370 DEF FNR';X) = INT<>i*RNDa>> 

330 DIM S(3.3>:C0*="«fllhi«aiA^Qi^^" 

350 Fl $=CHR$<: 133> : F3*=CHRi;-; 154) 

•100 F5*=CHR$< 135> : F7-f=CHR4:< 136> 

4 1 Df = " Mflflli'IilKiM^rPlijWiiIdl'flrtBlBlfl'iHftllKl" 

■!30 REM CRmN iOfif-D 
•140 REH 

■)50 PRINT":il &0£SiSle!l«!*|i»B!i 1" 

•160 FOR X-^1 TO 12 PRINT'-HiiWI I" 

■I71-1 1 » "T • PRINT"»»ir ' ' " 

•!30 (-•RIl-n'".J!»!rLEASE NflIT"; 

•150 REN 1-IL[.. IN SQUARES 

500 REM 

510 N=0:FOR Q=0 TO S^FOR P=0 TO 3 
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526 H=H+1-S«;P,.Q>=H;G0SIIB lee^NEXT^HEXT 
530 F0RV=lTCi4 : GOSUE70 ' NE^a 
546 REM SHUFFLE 
550 REn- 

560 FOR X=l TO 50: POKE S3.. 123*Cl + .5*RNIla>^ 
570 P 1 =FNR >; 4 > : P2=FNR ( 4 > : Q 1 =FNR ■; 4 ? ■ Q2=FhJR< 4 > 
53G1 IF P1=P2 AND Q1=Q2 OR S<:Fl,Qiy=16 OR S<P2.e£>=l€ 
THEN 579 
590 REM 

(500 T=St:Pl ; Ql > : S<P1 .. Ql >=S<P2.. i32) :S';P2>Q2>=T 
Sie P=Pi -■ G=Q1 ■■ GOSUB100 : P=P2 ■ Q=Q2 = GOSUB 100 
620 NEXT : G0SUE79 : POKE S3.0 
t"30 REfl STRRT PLRV 
640 REM 

£50 P-^o' ■ Q=3 : TI*="e0G000" 

660 PRINT"Sa".LEFT*<Ii*.19);"Bi Fl = UP "J 
6?Q PRIHT"F?=IiOWH":pRINT" F3 .= RIGHT F5=LEFT"; 
630 REH CHECK IF IN ORDER 
690 REM 

700 N=0:FL=-1-FOR X=0 TO 3= FOR V=0 TO 3 
710 N=N+l:IF S<V.X>ON THEN FL-0 
72r3 NEXT: NEXT IF FL THEN 979 
730 REM ACCEPT RND PERFORM MOVE 
740 REM 

750 POKE 198.0 
760 GETR*:IFh*<:>"" then S00 
770 PRI NT " ?a " .; TAB < 7 > ; LEFT* < T 1$ ,. 2 > ; " " ; 
7S0 PRINTMiri^ai?.3..2); " ".;RIGHT$ai$>2); 
790 PRINT THEa7>;Gj :GOT0 76Q 
S90 IF NOT<ft*=Fl$ Find Q03) THEN 339 
810 S^:P..Q:>=3CP.Q+l) :GOSUE100 
820 Q=Q+i :FX=250:GOTG93Q 
830 IF N0T';ii$=F7* AND GOO) THEN 369 
840 S<P..Q>=S<P.Q-1):GOSUB10Q 
850 Q=Q-l:FX=220;GOTO930 
860 IF N0Tc;h^=F5* RND POSiJ THEN 899 
870 S<P.Q)=S(F-H,Qy GOSUEIOO 
SS0 P=P+1 :FX=239;GOTn930 
S90 IF N0T<Fl$=F3$ AND P<>0> THEN 929 
900 3 -:; P ,. Q :j =S ■; P- 1 > Q ) : GOSUE 1 00 
9 1 P=P-1 ■■ FX=240 ; OOTO930 
920 GOTO 750 

930 POKE S3..FX:S<P.0) = 16 
540 GOSUE 1 00 : G=G+ 1 : POKE S3. S ■ GOTO 700 
950 REM GIVE HflSTV laSPLftV 
960 REM 

970 T1J=TI$:GOSUE70:FOR X=lTO10e 
980 PRINT"3" ■ LEFT*<D$. 22*RND< 1 ) > ; 
990 PR I HTLEFT:? ^ R$ . 2 1 *RHD < n ; ; 
1000 PRINTMIIi-f <C0*. l + 16*RHD'rO, 1>; "■" 
1010 IF RNIKIX.S THEN PR I NT "S".: 
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1020 PRINT'TiONE IT!".: 

lfi:-:0 POKE SEM+£55*RNrKi > ^ POKE VO. l+X/10 

1040 FOR V=0TO2 POKE Sl+VM2!3ifia+RNIl<0> 

itiSe NEXT: NEXT; POKE VO.- 15 -POKE SI +3. 220 

1 fli^O G03UB70 : GOSUE70 = POKE SB . 27 

1 070 F0RV=0T04 ■ POKE S I +'/ . ^ NEXT 

1030 REf1 GIVE RESULT 

1090 REM 

1100 PRINT'TKSIT TOOK YOU";G; "flOVES" 

1110 PRINT"flHri ".; :R$=LEFT*ai?.2> 

1120 IF H*O"00" THEN PRINT f\f:." HOURS" 

1130 PRIHT MiriJ-;TU.3.2>.:" MINUTES" 

1140 PRINT RIGHT$<T1$,2>.;" SECONDS." 

1150 PRIHT"W?»NOTHER GfiME? ";-POKE 198.0 

llf^O GET Fl$:IF fl|:0"V" RND R*<:>"N" THEN 1160 

1170 IF fl*="N" THEN 1190 

11-0 PRINT "VES":GOSUB 79:CLR:G0T0 35© 

1 198 PRINT"NO" : PRINT'-WTHflNKS FOR PLflVING. "-EHB 

REFlt'V. 
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SKETCHING 1 

DESCRIPTION 

A program which allows the user to put Commodore 
graphics symbols anywhere on the screen. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

When loaded and running the program will display a 
selection of characters at the top of the screen accompanied 
by a cursor. By manipulating the joysticic and depressing the 
'fire button' over the users choice of character, the user may 
tiien position the character anywhere on the screen he 
chooses by, again, depressing the 'fire button'. 
To change the colour of the screen and the border the user 
may depress the 'C key and, entering the correct co- 
ordinates, may alter the screen to his satisfaction. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 

70-80 Sets up control registers. 

120-140 Puts characters up on the first two lines of the 

screen and reverses the first character to signify 

the cursor. 
200-290 Checks the joystick. 
350 When 'fire button' is depressed and situated on 

the top two lines, the joystick will pick up the 

character. 
360-320 If the 'fire button' is depressed while the cursor 

is in the rest of the screen the joystick will drop 

the character and/or stop dropping the 

character. 
380-420 If a movement is input checks whether it is in 

the screen and then moves the cursor. 
450-500 If 'C is depressed, input 2 values to change the 

screen and border colours. 0-9. 



10? 













■>^* 














>,■( 






■-v* 






103 



10 REfl SKETCHING 1 

2y REN ***+:********#****>:**•*******■*******.***** 

30 REM 

40 REM 

50 REM SET ALL SOUNn REGISTERS TO 2ER0 

£0 REM 

70 FOR J=3eS74T036S7b : POKEJ.. : NEXT ■ PuKE3t;S73.. 1 5 

80 PuKE3e379.. S : PRINT":i:<" . : V=36S76 : P0KE3b87S. 1 5 " R=0 

90 REM 

100 REM PRINT GRhPHICS CHflRflCTERS ON SCREEN 

110 REM 

120 PRIHT"M-H^^ — '^■'1 I ■ n r'-'-% I t+ir»n~"," 

1 30 3=7fc'S0 : C=38400 : H=0 

140 X=PEEKCS> : POKES. X+liS ■ FOKEV.. 200 

1 50 FORJ=0TO2S : MEXTJ 

160 REM 

170 REM LOOK FOR INSTRUCT I OH FROM 

1S6 REM KEVEOflRD OR JQVSTICK 

150 REM 

200 PuKE37i54.. 127 ■ J6=~>:. i:PEEK'C-37152>HNril2y)=y::' 

210 F0KE37154..255:F=PEEK<3715n 

220 GETR*; IFR$="C"THENG0SUE4S9 

230 H=VHL';Ri:;)~l ; IFh<>-1THENR=R 

240 Jl=-';<PRHri8;=0> 

250 I FNHNriS>7743THEHX=CR 

260 J2=- >;■ C FRNIi 1 6 ) =0 > 

270 J3=~ (. <. PHHri4 ; =0 > 

230 FE=-';(PRHri32)=0> 

290 POKES .. X : POKEV .0:1 FU= 1 RNri3>e72 1 THENPOKEC .. R 

300 REM 

310 REM CHECK MOVEMENT IS WITHIN TOP TWO 

326 REM LINES RND PICK UP CHflRRCTER IF 

330 REM FIRE BUTTON IS PRESSED 

340 REM 

350 I FFEflNDS<7743THEHCR=>^ ■ W=0 = GOTO 1 40 

360 IFFBRNriS>7742HNrM=lTHEHN=N*-l + l : M=0 

370 IFFB=0THENM=1 

330 IF.T0flNriS<31S5THENS=S+l :C=C+1 

390 IFJlHNriS<S164THENS=S+22 : C=C+22 

400 IFJ2RHIiS>7630THENS=S-l :C=C-1 

4 1 I F J3HHIiS>770 1 THENS=S-22 : C=C-22 

420 GOTO 140 

430 REM 

440 REM CHHHGE SCREEH hND BORDER COLOURS 

450 REM EV IMPUTING TNO VALUES RFTER 

460 REM PRESSING -C-' 

470 REM 

480 P0KE36376,. O : FORJ=1TO10O ; NEXT 

490 GETflf : IFfl*=" "THEH490 

500 H=VflL ';■ hi- > ■ fi=R- 1 

510 pnKE3bS79.. ( PEEK < 36373:^ HMD IS; +H+lf: 
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520 FOR.J=1TOU30 :NEXT:RS=' 

53G GETflf ■■ IFh4=" "THENSStH 

540 H=VRL(:R*>:n=R-l 

550 Fi:iKE36i379.. ^■:PEEKC36S79)nNIi240)+fl+S 

560 Hit="" : RETURN 

RERHV. 
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SKETCHING 2 

DESCRIPTION 

This program allows the user to draw High Resolution 
characters in a 64 x 64 pixel block, in the centre of the 
screen with the use of the joystick. 

EQUIPMENT REQUIRED 

Basic VIC-20 + joystick. 

RUNNING THE PROGRAM 

Following the same principles as Sketching 1 but does not 

pick up characters. 

N Sets the block to original. 

C When the cursor is moved in this mode any points it moves 

over will be cleared. C then returns to original. 

Q To quit. 

PROGRAM STRUCTURE 

The following lines are of the most interest in this program. 
40-90 Sets up control registers, limits memory, moves 

character generator and sets all values to 0. 
100-250 Display. 
260-280 Changes character. 
290-350 Check for keyboard input. 
360-520 Check for joystick input. 
530 End. 
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10 REM SKETCHING £ 

2G REM *■***■*****************■*****************■*.* 

S0 REf'1 

46 PCiKE36S7S'.3:pRINT":3:<JlJST fl MOMENT" 

44 REM 

45 REM LIMIT TOP OF MEMORV 
4t: REM 

5e X=PEEK<5e:i -£ : P0KE52. X : POKESe. K 
ee P0KE5 1 . PEEK < 55 ::■ : CLR 

63 REM 

64 REM MOVE CHflRflCTER GEHERflTOR AND 

65 REM SET ALL VRLUES TO ZERO 

66 REM 

70 C3=£56*PEEK '^: 52 ) +PEEK C 5 1 ) 

Sti F0R>i=CST0CS+51 1 ■ POKEX. 6 = NEXTX 

90 N=S ■ F=e : Q=0 : CR=0 

94 REM 

S5 REM PRINT UP DISPLRV 

96 REM 

100 PRINT" :i^KETCHINGH" 

lliJ PRINT":-C=CORRECTrONH" 

120 PRINT" 50=QUITH*' 

136 PRINT" 5M-NEW DISPLflVB" 

140 PRINT";?lBl" 

1 50 FOR J=38480TO33884 = POKE J . 1 = NEXTJ 

1 60 PR I HTTffB < 7 > ; " SflECDEFG " 

170 PRINTTFiE<7>J"HIJKLMN0" 

1S0 PRINTTflB(7)"PQRSTUVW'" 

190 PRINTTflB(:7>.:"XVZCS3t^'* 

£00 PRINTTFlE(:7>;" ! "+CHR|:<34) + "#*KA'" 

210 PR rHTTMEC7X: "<)*+.-./" 

220 PR I NTTRB-; 7 ) .: " S 1 234567" 

238 PRIHTTflE<7:5;"89;;<=>?" 

240 C=0:V=0:X=7 

250 P0KE36S69/255 

254 REM 

255 REM CHRHGE V8LUE IN CHRRFlCTER 

256 REM 

260 N=PEEK(CS+C:+:8+V) 

270 R=C-INT<C/22:'*22+INT<C^^22)*8 

230 L=N0R<2 tJO ■ PCiKECS+C*8+V,. L ■ F0RJ=1T01 : HEXTJ 

234 REM 

235 REM CHECK KEVEORRD FOR INPUT 

236 REM 

290 GETR$ ■ I Ffi*= "Q" THEN530 

300 IFfl*="C"RNDQ=0THEHCR-CR*-l + l ;G='l 

310 IFW=lTHENN=HuRC2rX> 

320 I FCRTHENN=NRNr C 255-2 r^'> 

330 POkEr:S+C*-S+V.. N 

340 IFR*<:>"C"THENQ=e 

350 IFR*="H"THEN3Q 
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354 REM 

355 REM CHECK JO VST I CK FOR INPUT 

356 REM 

360 P0KE37154. 127= J0=-< <PEEKC37152>flND128>=0> 

378 POKE37154.255:F=PEEK<37151>;Jl=-<CPfiNI>8)=0> 

330 J2= - C (. PRHD 1 6 ) =0 ) : J3=- ( < PRND4 ) s0 > 

390 FE=-('CPflHD32>=0> 

400 IFFEflHDF-0THEHU=W*-l+l:F=l 

410 IFFB=0THENF=0 

420 I F J 1 RHDC>55Flf^DV=7THEN440 

430 IFJ1THEHV=V+1 : IFV>7THEHV-0 : C=C+8 

440 IFJ2=eTHEH470 

450 IFC=0flNDX=7THEN470 

460 y.^y.+i. ■■ IFX>7THEHX=0-C-C-1 

470 IFJ3aNDC<8flNDV=0THEH490 

480 I FJ3THENV=V-1 : IFV<0THENV=7 : C=C-3 

490 IFJ0=0THEH520 

500 IFC=63fiNIiX=0THEH520 

5 1 ><=K-l ■ IFX<0THEN»7 ■ C=C+1 

520 -GOT0260 

530 P0KE36S69 , 248 : P0KE5d , 30 : END 

RERDV. 
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KALEIDOSCOPE 

DESCRIPTION 

This program displays a constantly changing coiourfu! pattern 
on the screen, reminiscent of the childrens'toy Kaleidoscope. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

This program requires no expansion. 

After loading the program type run and watch the pattern 

grow. To stop the program hit any key to end. 

PROGRAM STRUCTURE 

There are a few lines of interest in this program. These lines 
are as follows. 

40-50 Choose correct screen and colour map starts. 

80-260 Displays Kaleidoscope pattern. 
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10 REn KHLEIDOSCOPE 

29 REn 

3Q REM 

40 VR=PEEK;643>*256 

Sfi KR=3fi4£iO- IFVRC>?6SC?THENKR=37S83 

bfi PCiKESeSFS'.. 42 SPRINT ":TI** VIC KflLEIIiuSCOPE **' 

7^^ FnRI = lTu£O00 : NEXT; PRINT"."!" ^POKESeSrS".. 27 

80 FORI=VRTliVR+50d 

90 POKE I. .ie0: NEXT 

100 2=KR:Q=KR+21 

110 E=KR+4:54-R=KR+5u5 

120 FORJ=aTul0 

130 FnRl=yT012 

140 X=IHT';RNDa:5*8."' 

150 PriKEZ+J+23+I.X 

16G PCtKEQ+J*21-IO'! 

170 PuKE2+J*-23+I*22..X 

130 Pi:ik:EQ+.J*21 + I*22.X 

130 PCiKEE-J*:21 + I.f< 

200 PUKER-J*23-I.X 

210 PGKEE-J*21-I#22..X 

220 pi:iKER-J'*23-I*22..X 

230 GETR* ■■ I FP:f <> " " THEN27S 

240 NEXT 

250 FGRK= 1 TO20Q ■ NEXT 

2i=^0 NEXT: GOTO 120 

270 PRINT"n3"; :FuKE3&S79.27 

RERnV. 
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HI-RES DEMO 

DESCRIPTION 

Displays an attractive high resolution display on the screen. 
No values are input. 

EQUIPMENT REQUIRED 

Basic VIC-20 plus super expander cartridge. 

RUNNING THE PROGRAiVI 

When loaded type RUN and watch the pattern appear on the 
screen, To stop hit any key. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 

40-50 Main program loop. 

60 Clears screen and sets graphic mode in colour. 

70-100 Draws lines on the screen. 

110 Draws large circle and colours in around the 

circle. 
120 Draws small circle and colours inside the circle. 

130-140 Pause and check for key press. 
150-170 If key press, the end. 
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10 REM HI -RES DEMO 

29 REM *********!*********************■********** 

30 REM 

40 GOSUE60 

59 GOTO 40 

ee F0RK=1T014 : SCHCLR = 0RflPHIC3 : COLORK+i . K+1 . K. 

70 FCiRI»lTO1000STEPK*25-DRPWl*1000*ITOI. 1 

S9 DRfiWl.I.1098TOl.I:NES<T 

50 FORI«1TO1000STEPK*25 ■ DRflWl , 1000-1 / ITOl . I 

100 BRRWl.. 1000.1000-1101. 1000: NEXT 

110 CIRCLEl , 5G0. 500J 23S. 340 ■ PRIHTl .175. 500 

120 CIRCLEl . 500. 500. 70. 100 = PRINT! . 500. 500 

130 FORI=iTO500 

140 GET fi*:IF fl*="" THEN HEXT : NEXT ■ RETURN 

150 COLOR 1.3.6.0 

160 GRfiPHIC 

170 END 

REflDV. 
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BANDIT 

DESCRIPTION 

This game is a graphical representation of a one armed 
bandit. The machine has five different symbols all in different 
colours. One of the symbols will pay out if it is just the first, 
the first and second, or the first, second, and third. All other 
symbols pay out only if all three reels show the same. The 
game allows the user to bet up to 12 units, and the win is 
multiplied by how many units bet. e.g. if 12 units are bet and 
three bar symbols appear, the computer will pay out 1200 
units. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, the display will show a one armed bandit. 
Use the key 'Z' to input the money, 'S' to start the reels 
spinning, and the keys '1, 2, 3' to stop the respective reels. 
The keys to stop the reels do not act immediately but allow 
the reels to spin for a couple more symbols so that the user 
cannot cheat. The game is over when all the money has run 
out. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

50-260 Display Bandit. 

270-360 Input cash or start. 

370-560 The array A$ holds the actual symbols. 

620-900 Spin reels. 

920-950 Input keys to stop reels. 

960-1040 When all reels have stopped, check for a win. 

1050-1140 Win, display payout. 

1150-1210 Choose the next symbol to appear. 

1220-1270 Run out of money. 
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•10 REM EflNIiIT 1 
20 REM 
30 REM 

34 REM 

35 REM niSPLRV FRUIT MACHINE 
3b REM 

4ti Q=5 ■ SC= 5Q ■■ GOSUB 1 1 5t3 

50 PRINT ":iifl" SRC ';7>"Bia , ■■■ 

60 PRIHTSPCIWI^IS :-JtiS 

70 H$=" a a 

S0 E$=" s w^i^mms^ ^simmss «xmm^s s s « 

100 PRINTR:? :pRINTn|;" :■!•": PR I NTE* 
110 PRINTH$" :i ■f":pRINTHf" d ■" 

120 PR I NT "ma ^Bpny"«''KirK :js ^ ^i i^,^ •• 

130 PRINT" tm ^ ¥\ tr '^ H lH'^m 3" 

140 PRINTED -PR I NTH*" d " 

150 PRINTC*"S «" 

IbS PRINT" H ■ TiDuOOOGDOOOOGS S 5 

170 PR IN Tut 

180 PRINT" a B aSWEflR FRUIT*^! 3 S 

190 PRINTCf 

200 PRINT" a « Bi:toes"SPcaeo"iiSjE a ■ 
210 PRINT" a e SiSuBS p 50 Eiaos: a ■ 

220 PRINT" 3 M SiaJuuQOOGQOQOOSS S » 

230 PRINTC4::PRINT" :i Z=INSERT : S-STRRT " 

240 PRINT" a 1.2..3=STnp 

250 L:;t= "3!!»l!(IH?M!!Ji!W«Bftft&!RM" 

260 i::n=0 : PR I NTLEFT^ ( C$ .. 1 2 ^ " SiPJOjGQOQCiOOuOpjQ 

264 REM 

265 REM INPUT CRSH OR STRRT 

266 REM 

270 GETft*: IFH$<::-"Z"RNriR4:<::-"S"THEN270 

230 IFR*="Z"THEN310 

290 I FCn<>0RNIiRf ■;:> " 2 " THEN 370 

360 G0TCi27u 

310 iFC:G=12THEN270 

320 IFSC=0THEN279 

339 i::i:i=Cli+1 :pRINTLEPTtO:$.. 12>S-pC';4) "S"; 

340 PRINTLEFT^( "6*«ae«»««««a" .. ceo 

350 S-C=3C-1 :pRINTCJ:SPCi.7)"P"STR:r'.:SC.V' " 
360 ijOTO270 

364 REM 

365 REM PREPRRE STRINGS FOR EhCH SVMEOL 

366 REM 

370 H$a.. i>="a ,/" 
3m Rfa,2:'="fflY/'-'" 

330 R^O.. 3 > = "]»'-' ^./" 

400 R*a.4> = "fl '-■■" 

410 m<2.. i;'=" 

420 R$^:2.. 2:^=":n ,-, " 
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430 mc2,3->=''jnir '^" 

440 Ff$C2.4> = "li]^-' '^" 

45e fl:f';3.i>="fii cnra " 

460 fl*':3.2)="fiS.«^" 
4?0 flirts. 3>-"ii I ■■-' I" 
4Sei R$(3.4>="Br' — '" 

430 fl$';4, i>="3 srvn " 

500 fl$<4..2>="S=C*#5=" 
510 fl*<4.3)="S a^i»" 
520 R*^<4.4) = " 
530 m<5A> = ''m^mM" 
540 M*<5.2>="aaBftRi^" 
550 ftSK5,3>-"mi^f\R9" 
560 fi$<5.4>="^.^" 

564 REM 

565 REM PULL fiND RELEASE ARM 

566 REM 

570 PRIHT"MMi!teW"SPC<29>.: 

530 FORi=iT06: PRINT" :«iiat«i"; 

590 FOR J= 1 TO40 ■ NEKT : NEXT 

600 F0Ri=iT06:pRiNT"a nisasi"; 

610 FORJ=1TO30: next: NEXT 

614 REM 

615 REM SPIN REELS 

616 REM 

620 RH=0:BH=0:CH=0 

630 IFhH=3THEN720 

640 RP=fiP+l : IFFlP=5THENR=RR ; AP=1 

650 flX=R : RV=flP - RZ=flR 

660 PR I f^T " ia«B»I«*!l" SPC -; 3 ) R* < fl , RP :> 

670 FOR I = 1 T03 : flP=RP+ 1 - 1 FRP=5THENR=RR ■ RP= 1 

680 PR I HTSPC < 3 :> R$ ^ R . RP > ■ NEXT 

690 I FRP=4RHDfiH':>0THENflH=flH+ 1 

700 I FRP=4RHDR=RRTHENRZ=IHT <RND < 1) *Q ) + 1 

7 1 fl=R:=-?: : RP=flV ■ RR=RZ 

720 IFBH=3THEH810 

730 BP=EP+1 : IFEP=5THEHE=ER : EP=1 

740 EX=E : EV=EP : B2=ER 

750 PRI HT "anIilISBia" SPC ( 3 '? fi*CE .. EP; 

760 F0RI=1T03:EP=EP+1 ■ IFEP=5THENB=BR- EP=1 

770 PRINTSPC05>fl*t:E.EP; :HEXT 

780 IFEP=4RHDEH<>0THENEH=EH+1 

790 IFBF-4RNDE=BRTHENEZ=IHT<RND< 1 >*Gi:) + l 

300 B=BX:EP-BV:BR=E2 

810 IFCH=3THENy00 

320 CP=l:P+ 1 ■• IFCP=5THEHC=CR - CP= 1 

S30 CX=C ; CV^CP : C2=CR 

G-10 PRINT".iIi!Wfli!lfl"SPC": 1 3)fl*(C. CP> 

;-:Su FORI = 1 T03 ■ CP=CP+ 1 ■ I FCP=5THEHC=CR : CP=1 

360 pRiHTGPca3:jfl$<;c..cp;? ;hext 

870 I Fi::P=4RNEl:HO0THEHCH=CH+ 1 
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380 IFCP=4FiNItC=CRTHENCZ=IMT':RNrK 1 >*i3> + l 

S5Q C=CX : Cf -C't' ; CR=CZ 

900 IFflH=3MHDEH=3FiNDCH=3THEH5'60 

904 REM 

905 REM INPUT KEVS TO STOP REELS 

90 6 REN 
910 GETR* 

920 IFflH03flNDfl*=" 1 "THENftH=l 
930 IFEH<>3RHDfl*="2"THENEH=l 
940 I FCH03flHDfl J= " 3 " THENCH= i 
950 GOTO630 

954 REM 

955 REM WHEN ALL REELS STOPPED.. CHECK FOR WIN 

956 REM 

960 HT=0 ; XX=0 : IFft=l THEHXX=2 
970 IFfl=lflNIiB=lTH£NXX=5 
980 I Ffl= 1 flHIiB= 1 FlHIIC= 1 THENXX= 1 
930 I FR=2RNriE=2flHDi:=2THENMX=20 
1 000 I Ffl=3RNi:iE=3RNDC=3THEHXX=50 
1010 IFfl=4HNriE=4fiNDC=4THENXX=20 
1 020 I Ffi=51=lNDE=5flNDC=5THEHXX= 1 00 
1030 XX=X'J-^*CO 

1040 if;«;x=0theni220 

1044 REM 

1045 REM WIN. DISPLFlV PftVOUT 

1046 REM 

1050 PR I NT "a".: ;FORI = iTGX>^ 

1060 FOR J=1TO10: NEXT 

10?0 IFHT=0THENPRIHT"ia«W"SPCC8>"a H " 

10S0 IFHT=10RHT=5THENPRIHT"Hi!lcJ"SPC(S)" El ■" 

1090 IFHT=20RHT=4THENPRINT"a!K]"SPC<8>" A » " 

1100 IFHT=3THENPRIHT"SIBIBJ"SPC';!3>" a ■" 

1110 HT=HT+1 ■■ IFHT=6THENHT=0 

1 1 20 SC=SC+ 1 : PR I NTC*SPC 'i 7 ) " P " STR$ ■; 3C > 

1138 HEKT-PRINT"S" 

1 1 40 PR I NT " S'W" SPC < 6 > " "■ GOTO260 

1144 REM 

1145 REM CHOSE NEXT SVMEOL TO flPPERR 
114b REM 

1 1 50 HP=0 ; I:P=0 : CP=G 
1160 fl=INT<RHri<l>*Q:> + l 

1170 rr=inT(:rnii<i)*q>+i 
1180 e=inT':rn]:i<i>*G!>+i 

1150 ER=INT';RNrKl>*u::' + l 

1200 C=INT';:RNri< 1 >*Q.^ + 1 

1210 CR= I NT < RND a > *Q > + 1 : RETURN 

1214 REM 

1215 REM OUT OF NONEV 

1216 REM 

1220 IFSCO0THEN260 
1 230 FORJ= 1 TO 1 000 : NEXT 
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1240 PRINyOKteKM^IisWRW SSRNOTHER GO CV OR N) 
1250 GETfl*UFfl*0"V"flNIil=l*0"H"THENl£5Q 
1260 IFfl*="V"THENRUH 
12?0 PRINT")*) THE END" = END 
RERHV. 
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MOON LANDER 

DESCRIPTION 

The aim of the game is to land a space module on the surface 

of the moon without crashing. It requires a great deal of skill 

to place the space ship on the surface, caution is advisable 

when judging the speed of your approach. 

The display on the screen for this game is very simple, 

consisting of a lunar module in the right hand corner of the 

screen with an information gauge on the left, indicating the 

height, speed, time and fuel use. 

Another feature of the game is the sound when fuel is being 

used. 

One final note, it is possible to land the space ship without 

crashing. 

For those interested the game could be modified to use a 

joystick instead of the keyboard, better graphics could also 

be added. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run the program displays a set of instructions for 
playing the game. Pressing the space bar will start the game. 
The display shows an information gauge on the left hand side 
of the screen and a lunar module on the right hand side. 
There is an initial countdown of several seconds after which 
the game starts. The speed of the lander's descent can be 
controlled by burning fuel in the retro-rocket; the amount of 
fuel used is controlled by the number keys 1 to 9. Key 1 uses 
very little fuel and therefore slows the descent only slightly; 
note that the speed shown on the gauge will increase for all 
fuel usages below 5 since we are having to counteract the 
effect of gravity. A value of 5 will just counteract gravitational 
pull and the spacecraft speed will remain constant. Keep an 
eye on the fuel gauge since running out of fuel will result in 
an uncontrolled crash to the surface. A successful landing on 
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the surface will be achieved if your speed is less than 15 

Km/hr. 

PROGRAM STRUCTURE. 

The lines of interest in this game are as follows. 

50 Colours the screen red and uses a subroutine to 

print the instructions for the game. 
70 Returns the screen to white for play to 

commence. 
130-170 Sets up land parameters for intial fuel, speed 

and height information. 
200-220 Inputs fuel usage from the keyboard. 
240-350 Calculates new values ofspeed and height. 
370-430 Displays the atove values. 
450-560 Prints the space ship on the screen. 
580-630 Prints box around landing parameters. 
660-710 Displays burn out combustion lines. 
730-770 Prints random dots to represent stars. 
790-850 Displays moon surface when height becomes 0. 
880-920 Displays landed ship. 
940-960 Displays crashed ship. 
970-990 Inputs new go. 
1010-1060 Inputs the 5 second count down at the 

beginning of the game. 
1090-1230 Prints instructions for the game. 
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10 REM nOOHLMNriER 

2ti REM *********************#**:**■****•**'* 

38 REM 

59 REM 

40 REM RED SCREEN flHD INSTRUCTIONS 

41 REM 

50 P0KE36S79. 42 : GOSUB1050 

59 REM 

60 REN WHITE SCREEN FOR GfiME 

61 REM 

?ti P0KE36S79. £5 ■■ PCfKE36S69. £40 
80 PR I NT ":^": 
90 14=15 
100 GOSUB730 
ll£i PRIHT'VbJ" 

119 REM 

120 REM SET UP PflRflMETERS 

121 REM 

130 TH=0:T=0 . 

140 X0=52SC'i0 

150 VU=-l?6:F=l;S=l 

160 GOSUB450 

170 GOSUB1010 

180 RT=TI:fiG=TI 

189 REM 

190 REM INPUT FUEL USfiGE 

191 REM 

200 G£TRR$ : I FRR:t<> " " THEHR=VflL < RRI^ ) 
210 IF'::TI-RT»30THENfiT=TI :GOTO240 
220 GnTO210 

229 REM 

230 REM CflLCULfiTE HEU VALUES 

231 REM 
240 T=T+R 
250 TH=TH+1 

260 fl=5.4*<l-0.2*R> 

270 X=V0+0 . 5*:R ■ Xe=K0+X 

280 IFX0>0THEN300 

290 X=X-X0:F=0:X0=0 

300 D=V0*V0-2*X*fi 

310 IFD>0THEN3S0 

320 D=-D:S=-1 

330 V0=SQR <. r ^ *S*SGN C X ) 

340 £=1 

350 IFV0>uTHENPRINT"5i"; 

359 REM 

360 REM mSPLflV LRNLING PRRflMETERS 

361 REM 

370 PRINT "s:?i«?>i"; Miri:r<:sTRi:(vu) .. 2.. 5> "■'" ; 

3S0 PR I HTLEFT4; < 3TR:t ■; X0 ;:- +fl* < 0;> .- 7 .J 
390 PR I NT" Mm" 
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40e PRINT"M".:250O-T"I! IH"TflB<S>; TH 
A 1 (5OSiJBfc"60 ■ I FF=CiTHEHGOSiJE790 : GOTOSSe 
420 I FT>2500THEHR=0 = GOTOSSe 
430 GOTO200 

439 REM 

440 REM INITIALISE STRINGS FOR SHIP 

441 REM 

450 a$-":iiiiin" 

460 ft*<0>=" " 

470 R$^<:i>="K r " 
480 fl*<2)="B :r ^ " 

450 fl*<3>="i a - ■ " 

510 R*<5>="i^':rBi9^." 

?20 fl*C6>=fl*<0> 

S30 PRINT"SBWi"TflEa5); 

•:.40 FOR I =0706 

!.;;50 PRiNTfi*<n+fl*; 

rj60 NEXT 

'->6S REM 

•;.70 REM PRINT DISPLflV RROUND PflRftMETERS 

•:;71 REM 

■;;s0 PR I NT" an " 

•:i90 PRINT" I315PEEII HEUSHTB " :GCSUB620 
..:00 PRINT" la^UEL TIME S ■':GOSUB620 
»U0 RETURN 
i;.^e F0RI=1T02: PRINT" l"TflB<13VM ":NEXT 

»;3Q PRINT" I I ": RETURN 

• ;40 REM IF KEV GREfiTER THAN PRESSED, 

1.50 REM DISPLRV 'BURN"' 

1.60 PRINTTRE<15>; : I FR=0THENPOKE36:378..0: RETURN 

« :70 P0KE56S77 . 1 50 = P0KE36S74 . 200 = P0KE36878 . R 

i';s0 FORi=iTOR;pRiNT"a-'''\ijaiir; :ne><:t 

»::->0 FORI=RTO10- PRINT" aMI"; :NEXT 

."00 PRINT": 1 1 1 II I ir 1 1 r ; : F0RI=1 TO10 

.*10 PRINT" *«■!";: NEXT: RETURN 

.'19 REM 

.'20 REM PRINT 14 RANDOM '.' ON SCREEN 

.•.51 REM 

.':;0 PRINT":*" 

.'40 F0RI1=1T014 

,'S0 PRINTTFlE<20*RNIi<: 1 > > ; " . " 

.Vie NEXT II 

.•.■•0 RETURN 

.'79 REM 

.'00 REM DISPLflV SURFACE 

/;:l REM 

,-:'0 H-4 . 5 ; Hf < 1 )="_" : H$< 2>="_" •• H*C3>="-" 

: .-i.ru H.r •; 4 > = " ■" : H* ( 5 > = " SHS" : H* <€> = " J-Tl" 

: :. 'i I I K 1 1 IT " k*ii'W"'|i'Ii' Wi'lrlki!l''ft W»f li«Mi!l" FOR I - 1 T02 1 
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830 H=rNT<RNria>*7::' + l - IFaESCN-Hi^^THEHSSe 

340 P0KE36S77 .. 6 ■ P0KE36374 . - P0KE3fc'37y . S 

850 H=N : PRINTH$CH; j ■ NEXTI : RETURN 

355 REM 

see REM SHIP HRS lhnded or CRRSHED 

370 REM DISPLRV SHIP hiS HORMPiL 

S71 REM 

330 PRINT"HBM«"SPC(15>.; 

390 F0RI = 1T01 ti : FORJ=0TO5 - PRIHTRf CJ>+R$; 

990 NEXT: PRINT": mil " ; : NENIT 

510 IFV0<-15THEN94u 

920 PRINT--pRINT"Wi!li!M?a:«OOri LflHDING." : 13010970 

929 REM 

930 REM niSPLflV CRflSKEIi SHIP 

931 REM 

940 PRINT"! jtaasm fiami pMmumi 

950 pRiNT">sii:i^i. :5aafiBBsaaffiaH^:i tf^a^jL :i m'- 

9g0 print":e!W" 

970 INPUT"«iMOTHER GO " ; Gi; 

980 I FL£FT:f < G$ ,. 1 ;■ = " V " THEN90 

yyy END 

999 REn 

ltu30 REM COUHTnCiNN TO STRRT 

1001 REM 

1019 P R I NT " ffi:-fSBMrIJ!!ftM!!l«Pli!M«rl!!l«!!lrJ" 

1020 fl=TI 

1 030 PR I NT " SSTflRT OVER " 5- 1 NT < C T I -H ) /60 ) .: 

104S PR I NT "II SECT 

1 050 I F < T I -fl > <30eTHEH 1 050 

1060 PRINT" "■R=0 

1070 RETURN 

1075 REM 

1030 REM INSTRUCTIONS 

1031 REM 

1090 pnKE36S69j242;REM IN LOWER CfiSE 
1100 PRINT":iiWi*.*** MOONLfiHDER ***** 
1110 PR I NT "YOU MUST LAND VOUR" 
1120 PRINT" SPACE SHIP ON THE MOON." 
1130 PRINT"Wt'OU have control OVER THE " ,: 
1140 PRIHT"SHIP EV CHANGING THE FUEL USAGE." 
1150 PRINT"Wt'uU CHRNGE THE FUEL USAGE " .; 
1160 PRINT'UJITH the KEVS 0..9 - 5 KEEPS" 
1 1 70 PR I NT " CONSTANT SPEED . " 

1130 PRINT "Wt'OU must lrnh with a speed "; 

1190 PR I NT "OF LESS THAN 15 -"M/H. " 
1 200 PR I NT " ;«:-iOOC LUCK . " 
1210 PRINT"WS5TRRT WITH A SPACE. S" 
1220 GETHf: IFA|:=""THEN1220 

1230 RETURN 
RERIiV. 
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CIRCLE DEMO 

DESCRIPTION 

This program plots two high resolution circles on the screen 
of equal radii but with different centre co-ordinates. No 
values are Input. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

This program will not work with expansion. After loading the 
program ail the user has to do is type run and watch the 
circles appear on the screen. To stop the program hit any 
Key. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows. 

40-50 Sets up the control registers. 

60-90 Limits memory and moves character values 

down from ROM. 
100-190 Changes the character in X%,Y% point on the 

screen. 
200-230 Calculates the points on the circle. 
240-260 If key press, end. 
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19 REM CIRCLEDEMO 

28 REM *****■******♦**************-*****'*"***■***** 

30 REM 

40 P0KE36879.42-PRIHT":if»** VIC CIRCLEDEMO *** 

50 PUKE36S69. 253:P0KE36867. PEEK C 36867) OR 128 

54 REM 

^"5 REM LIMIT TOP OF MEMORV 

56 REM 

60 P0KE55. :P0KE56.25 = P0KE51 . : P0KE52. 19 

70 CLR:S=32768:T=5I20 

SO FORI=0TO255#8+7;POKEI+T>PEEK<I+S> :NEXT 

90 GOTO170 

.94 REM 

95 REM CHRNGE CHflRftCTER POKED RT THAT POINT 

•:>€. REM 

1 00 xy.=x/s ■■ wy.=v/8 ■ p=x?;+vJi*22+76S0 

lie Q=PEEK<P) ■■ IFQ<12STHEN140 

120 C=5120+Q*3+<VhlND7> 

J 30 P0KEC.PEEK<C;uR■:2t<7-^Xl=!ND7>)>: RETURN 

134 REM 

135 REM MOVE CHRRflCTER GEKERRTOR 

136 REM 

140 CN=CN+1 ;S=5120+a27+CH>*8:T=5129+Q*3 

150 FORI=0TO7:POKES+I.PEEKa+I) :NE^;T 

1 f^Q i3=127+CH :P0KEF. Q : GOTO120 

1 70 F0RI = 1T022 ■ POKE7680+22*! . 93 : NEXT 

I SO POKE76S0+ 11*22.-1 07 

1 90 F0RI = 1T021 ■•POKE76S0+1 1*22+1 . 64 : NEXT 

194 REM 

195 REM CRLCULRTE POINTS FOR CIRCLE 

196 REM 

.:b2 RD=40;FORZ=0TO2*:ff STEP.05:!^^=CO3<Z)*RD+e0 

.■10 V=SIH<2>*RIi*1.7+8S:OO3UE:10O 

.■20 X=COS CZ> *RD+90:V=SIN(2)*RD*1. 7+98 :GOSUB 100 

.'iO NEXT 

.•40 GETfl*- IFR$=""THEN240 

."■;y pnKE36379.27-PRINT":E". :POKE36S69.240 

,■1.0 POKE 56 -.30 

!•■! hDV. 
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HI-RES PLOT 

DESCRIPTION 

This program allows the user to plot high resolution points on 

the screen using P, U, F and E keys. 

P: Plots points. 

U: Inverts the point at those co-ordinates. 

F; Plots up function defined in line 500. 

E: End of program. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAIVI 

This program requires no expansion. When typing in the 
program leave out the REMs, type RUN, use the commands 
above and follow the Instruction which will then be giver>, 

PROGRAIVI STRUCTURE 

The lines of most interest in this program are as follows: 

100-110 Sets up control registers. 

150-290 Limits memory, moves character values down 

from ROM, Inputs option, and decides where to 

go. 
330-340 Plot the point P option. 
380-390 Plot the point U option. 
460-510 Plot the function defined in line 500. 
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10 REM HI -RES PLOT 

20 REM 

30 REM 

40 REN 

■^0 REM THIS PRuGRflM WILL ONLV WORK 

f-:n REM WITH RLL THE REM STflTEMENTS 

70 REM REMOVEn 

Sa REM 

90 PRINT":iiW#* VIC HIRES-PLOT ***" 

1 00 pnKE3SS79 , 42 ■ POKESeSSS" . 253 

110 PUKE36867. PEEKC36367>0R128 

120 REM 

130 REM LIMIT TOP OF MEMORV 

140 REM 

1 50 P0KE55.. : P0KE56. 25 = P0KE51 . & 

iHifi P0KE52j 1£':CLR:S=32?68:T=5120 

170 FOPI=0TO255*3+7 = P0KEI+T.PEEK< I+S> 

1S0 NEXT : PR INT ".T 

190 IHPUT"3:onMflND "Jfl$ 

200 IFRf<>"E"THEN230 

210 P0KE36S79.. 27 : PRINT"."E" J 

220 POKE 36369.. 240 :P0KE5fc'.. 30: END 

230 IFfif<'>"P"HNDfl$<:>"Ll"THEN250 

240 I MPUT " ^-^ ,- V " .: X . V ■ i?OSLIE270 

250 IFR*="F"THEN460 

2b0 Gii:iTO190 

270 y.y.=y./S ■ V;i=V/3 : P=Xr'>V>;*22+7680 

23m ui=PEEK<P> : IFQ<12STHEN400 

290 IFfl*<>"lJ"THEH3o9 

300 REM 

310 REM PLOT THE POINT C0..0=TOP LEFT) 

320 REM 

330 C=^ 1 2G+G*3+ >; VflNri7 > 

340 POKECj PEEK0:)flMD<255-2t<7-':>;nNC7> ; > ■ RETURN 

350 REM 

360 REM PLOT THE POINT INVERSE TO NHflT IT 13 

3S0 r:=5 1 20+ Q*S+ C VHHD7 > 

390 POKEC> PEEK<;C>0R';2t<7-'::XRNr7>:) > • RETURN 

400 CN=i::N+l :S=512e+C127+C:HJ*3:T=5120+Q*£: 

4 1 FOR I =0Tn7 = PUKES+ 1 ^ PEEK ■; T+ 1 > : NEXT 

420 i;f=l 27+CN : POKEP.. Q ■ GOTO3S0 

438 REM 

440 REM PLOT FUNCTION IN LINE 500 

450 REM 

4t^M PRI NT " n" ■ FOR I =0TC22 : POKE7630+22* I .. 93 

470 NEXT;POKE7SS0+11*22. 107 ■ riRTR15. 23.. 19 

4^^:0 F0RI = 1TU21 :pOKE7630+l 1*22+1 . 64: NEXT 

490 F0R2:= 1T03 : RERDE : F0RX=4Tni 75 

5fi0 V= . 5*X+50+S I N < ( X-4 > /' 1 7t.*B .:' * 1 5 

5 1 O OOSUB270 : NEXT : NEXT : RESTORE : GOTO 1 90 

REflUV. 
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HANGMAN 

DESCRIPTION 

Hangman is the computerised version of the popular childs 
game, although playing against the computer enlivens the 
proceeding well enough for adults to find It challenging. The 
player guessing the word has ten moves in which to work his 
miracle (the computer always plays as the questioner!), no 
second chances are allowed as first the ground appears, 
followed by the upright, then the crossbar, the strut, the 
noose, the hanged man's head, his body, arms, legs, and 
finally his feet. If the correct answer has not been found by 
this time then the player who is trying to find the word loses. 
In this particular program the computer has a vocabulary 
comprising some of the 200 most commonly misspelled 
words in the English language. 

It is possible to cheat by looking at the vocabulary listing but 
most people would, 1 hope, try to use the game !n a more 
sporting way. By changing the words in the Data statements 
in lines 9500 to 9998 - always ensuring that there are 200 
words contained therein - it is possible to use this game as an 
aid to learning a foreign language. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

This program will only work with 3K expansion if the REM 
statements are removed. Any expansion above 3K will work 

with the REM statements included. 

Once the program is loaded, type run and follow the 

instructions. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-380 Instructions. 

420-560 Choose a word from the data statements. 
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570-590 Input a letter. 

600-660 Not a letter. 

670-760 Guessed the word. 

770-800 Letter in word. 

810-890 Print letter in the correct position on the screen. 

900-950 Letter is not in the word. 

960-1000 Display the man's feet. 

1010-1030 Failed to guess the word before the man was 

hung, 

1040-1070 Display the base of the rig. 

1080-1140 Display the upright. 

1150-1180 Display the horizontal. 

1190-1220 Display the diagonal support. 

1230-1260 Display the rope. 

1270-1340 Display the man's head. 

1350-1420 Display the man's body. 

1430-1460 Display the man's hands. 

1470-1530 Display the man's legs, 

1720-2360 Data containing about 200 words. 
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10 REM HRHGMRH 

ao REM ****************♦;**********■**********:*** 

30 REM 

40 PR I NT " n[?Mi!lBlf!lS)!Wliti»»>»HftNGMfiN " 

50 PRIHT"Wi!lBl" 

£0 PRINT'VPM riO VOU NEEB" 

?0 PRINT" INSTRUCTIONS ?" 

80 PRINT" ^'REFLV V FOR 'VES'" 

90 PRINT" OR N FOR 'NO')" 

100 GET X*;IF X*=""THEN 100 

lie IF Kt-"H" THEN 400 

120 FRINT"3=iLWfiVS REPLV V FOR VES OR H FOR NO. " 

130 PRINT"MI WILL PRINT; a" 

140 PRINT":?! WORD=Bi 3" 

150 PRINT "JsEflCH fif-3 STANDS FOR ft" 

160 PRINT" MISSING LETTER," 

170 PRINT 

180 PRINT"M'JHEN I PRINT" 

193 PRINT" ':F'RESS RNV LETTERS'.-" 

260 PRINT"FOLLOW THE INSTRUCTION" 

210 PRIWT"PR£S3 aSPRCE" TO CONT" 

220 GET R*-IF flJO" "THEN 220 

2.3S PRINT"niF R LETTER IS IN THE" 

£40 PRINT" UNKNOWN WORD" 

250 PRINT" MORE THAN ONCE VOU" 

260 PRINT" WILL NEED TO PRESS" 

270 PRINT" THE LETTER MORE THRN ONCE, " 

230 PRINT";eE.O. '•flPPLE-'HRS 2 P'S." 

230 PRINT" PRESS P ONCE RND" 

300 PRINT" I REPLV:" 

310 PRINT "H WORD=iHP ^S«" 

:-J20 PRINT"PRES3 P R SECOND TIME RND I REPLY:" 

j:30 PR I NT "M WORr=fii-PP— S" 

340 PRINT 

3^0 PRINT"VOU HAVE TO COMPLETE" 

560 PRINT" THE WORD BEFORE I" 

370 PRINT" HRNG THE MAN." 

•.iy0 PRINT" SPRESS RNV KEV TO STRRT5"; 

::50 GETX*;IF X*=""THEN 390 

•\m pRiNT":^".;TflB';7>; "hrngmrn" 

410 PRINTTfl£<7>;" S"; 

•114 REM 

■115 REM CHOOSE fl WORD FROM THE DRTfl 

•116 REM 

420 rr=int«:rnd<i.')*197+i:> 

•130 IF R|:="ENr'" then 729 

•140 FOR 1 = 1 TO RR 

•iV>3 RERD R*:IF R|:="END" THEN 720 

460 ne;:;t I 

•170 restore 
■(y0 Lfl=LEM';R4^> 
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490 Z*=CHR*<13>+fl$ 

560 DS-"" 

510 FOR 1=1 TO Lfl 

520 D.t=ri«+"-" 

530 NEXT I 

540 PRINT "W" 

550 PRINT "WORD=ii";I)*; "SBS"; 

560 N=0:L=0 

564 REM 

5^5 REM INPUT fl LETTER 

566 REM 

570 PRIHT'-iBIlP BPRESS fiHV LETTER" 3"; 

530 GET L|:-IF L*=""THEN 580 

530 IF flSC<L*»64 RND RSCCLfXSl THEN 649 

594 REM 

595 REM NOT fl LETTER 

596 REM 

600 PRINT";i!ttM"L*" IS NOT fl LETTER 

610 GOSUB 1690 

620 PR I NT "n JU"; 

630 GOTO 570 

640 G03UB 730 

650 IF H<Lfl THEN 5?0 

660 IF H=(Lfi+l> THEN Tl=TI:GOTO 6S0 

664 REM 

665 REM FIN I SHED 

666 REM 

670 PR I NT " WlWyOU WINN " : T 1 =T I 

630 IFCTI-T1X209 THEN 6S0 

690 PRINT"n DO VOU WftHT ANOTHER GO?"; 

700 GET E:r:IF E$=""THEN 700 

710 IF f!$="V" THEN 400 

720 PRINT'TJ THfiNK-VOU FOR PLftVIMG":END 

730 LF=0 

740 FOR 1=1 TO LR 

750 B*=MID*<fl*.. I.l> 

760 IF B$OL* THEN £70 

764 REM 

765 REM LETTER IN WORD 

766 REM 

770 PRIHT".>fr«i!LETTER IN WORD a"; 

780 H=N+1 

750 GOSUB 1690 

S00 Ifl=4-f-I 

504 REM 

505 REM PRINT LETTER IN POSITION 
806 REM 

810 PR I NT "W" 

826 PRINT TflE<Ifi);"Bi"L:f"3".i "S"; 

830 1 1=1 

5:40 GOSLIE 1540 
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S50 LF=LF+1 

see RETURM 

870 NEXT I 

S89 IF LF=0 THEN GOSUB 906 

390 RETURN 

£i94 REM 

835 REM LETTER NOT IN WORD 

•836 REM 

500 L=L+1 

■310 PRINT"HtfBLETTER HOT IN WORD S" 

520 eOSUE 1690 

•'f30 OH L GOSUB 1046.. 1DS0, 1150/ 1190. 1230 

940 IF L:>5 THENOH L-5 GiOSUB1270i 1356^ 1430/ 1479 

550 IF L<10 THEN RETURN 

954 REM 

955 REM PRINT FEET OF MAN 

956 REM 
960 K=19 

970 G03UB 1S50 

930 PRINTTHB<9>J" i^THeB ^3"; 

990 PRINT"*]" 

1000 PRIHTTHE<5)"Bi"Z*"S" 

1004 REM 

1005 REM FRILED TO GET WORD 

1006 REM 

1010 PRINT"S0RRV/t'0U LOST 3"; 

1020 N=Lfl+l 
1050 RETURN 

1034 REM 

1035 REM PRINT EASE 
1056 REM 

1040 K=20 

1050 GOSUB 1650 

1060 PRINT" a"; 

1070 RETURN 

1074 REM 

1075 REM PRINT UPRIGHT 

1076 REM 
10:50 K=6 

1090 GOSUB 1650 

1100 FOR 1=1 TO 14 

r (10 PRIHTTl=iEC5)J"^" 

I 1 20 NEJ^T I 

11x0 PRINTTRE<5>;"^"; 

I 1 40 RETURN 

1144 REM 

!I4'5 REM PRINT HORIZOHTflL 

I Mr; REM 

I 150 K=5 

I tfc.0 GOSUB 1650 

1 170 PRINTTRE-:5>/ "JSs^J^^®^^^"; 
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use RETURN 

11S4 REM 

1185 REM PRINT DIfiGOHflL SUPPORT 

1186 REM 
1199 K-10 

120y GOSUB 1659 

1210 pRiNTTflEcs); "nn^ryinmnnsTinnanrM". 

1220 RETURN 

1224 REM 

1225 REM PRINT ROPE 

1226 REM 
1 '^''^ifi K=6 

I24e GOSUB 1650 

1250 PRINTTflE<in.:" I 3"; 

1260 RETURN 

1264 REM 

1265 REM PRINT HEAD 

1266 REM 
1270 K=7 

1280 GOSUB 1650 
1290 PRINTTftB<10:>;"3r ^" 
1300 PRINTTRB^9>;" /r++'^," 
1310 PRINTTflE<9>;"M I K" 
1320 PRINTTRB<19).:"\^.y" 
1330 PRINTTflB<il)J" — Si"; 
1340 RETURN 

1344 REN 

1345 REM PRINT BOBV 

1346 REM 
1350 K=ll 

1360 GOSUB 1650 

1 370 PR I NTTflB <9> ; " / S" 

13S0 PR[NTTflB<S); " I It t I I " 
1390 PRINTTflB«:S>i" lit II" 
1400 PRIHTTfiECS^J" U tU " 

1410 PRINTTflE<10);"( H"; 

1420 RETURN 

1424 REM 

1425 REM PRINT HfiNBS 

1426 REM 
1430 K=15 

1440 GOSUB 1650 

1450 PRIHTTRB<9>,:"#I 1^3"; 

1460 RETURN 

1464 REM 

1465 REM PRINT LEGS 

1466 REM 
1470 K-16 

1430 GOSUB 1650 

1490 FOR 1=1 TO 3 

1500 PRINTTHE<J0>;"rl I r 
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L519 
L520 
[ 53t3 
1540 

L560 
.570 
>30 

:5L='e 

1600 
[610 
1620 

'.630 
[ f-40 
IS50 
[660 
1670 
L6yQ 
[690 

'"00 
'10 

.714 
.715 
[716 
'20 

'30 

^40 
L750 

760 
,770 

7S0 
.790 

[ S00 

il0 

:20 

,:30 

:340 

^;50 
::;r;0 
;i;7u 

1080 

i yuT;! 
1910 

I 930 
1940 
I 9S0 
i960 
1970 
I 9:j0 



NEXT I 
PRIHT"a"J 
RETURN 
X=II-1 
IF X=0 
IF X=0 
IF V=0 



V=Lfi-II 

AND V=0 THEN 



1600 

THEN fl$=" "+RIGHT$<:Fi*A') 'RETURN 
THEN fi$=LEFT*':fl*.X>+" ": RETURN 

fl*=LEFT*<fl*.-X>+" "+RIGHT*Cfl$.V> 

RETURN 

Fl^~" " 

FOR 1=1 TO Lfi 

HEKTI 

RETURN 

FOR 1=2 TO K 

PRINT"M"; 

NEXT I 

RETURN 

T=TI 

IF<TI-T><i00 THEN 1709 

RETURN 

REM 

REM WORD DFlTFl 

REM 

ItflTfl flESENCE.. fiCCEPT. RCCinENTflLLV 

DflTfi RCCOMhuDRTE.. RCHIEVEIi. flCKNDULEDGE 

DRTR flCQUAINTEB. REDRESSES. RER I RL 

IiRTRRGGRflVRTE. RGREERBLE. RMRTEUR, AMONG 

DRTR RNTRRCTIC. RNXIETV. RPPftRENT. RPPERRRNCE 

ERTRRPPROPftlRTE. flRCTIC,. RRGUMENT. RRRRNGEMENTS 

IiflTfl fl:5CEHT> RTHLETIC. RWFUL. BACHELOR 

riATR EEGINNING.BELIEVED.EEHEFITED.BRERTHE 

IiRTR ER I THIH,EUSI HESS. CflPTRIH. CEILING 

DATA CEMETERV. CERTAIN. CHOICE.. CLOTHES 

DRTR COLLEGE. COfllNG. COMMITTEE. COMPRRflTIVE 

DRTR COMPETENT. COMPLETELV> CONSCIENTIOUS 

DRTh CONSCIOUS. CONSISTENT.. CONVENIENCE 

DRTR COPI ES.. COURSE .- COURTEOUS . COURTESY 

DRTH CR IT I C I SM .. DECE I VE .. DEC! S I OH .. DEF I N ITE 

DRTR IiESIRRELE.. DESPERATE.. DISRPPERRED 

DATA DISAPPOINTED.. DISASTROUS. DISCIPLINE 

DATA DISSATISFIED- EFFICIENCV. EIGHTH 

DRTh ELIMINATED.. EMERRRRSSED. EMPHASISE 

DATA ENTHUSIASM.. EQUIPPED. ESPECIRLLV 

DATA ESSENTIAL .. EXAGGERATED . EXCELLENT 

HHTA EXERC ISE > EXHAUSTED . EX I STENCE 

DRTR D'PEMSE,. EXPERIENCE, FAMILIAR 

DATA FEnRlJARV.. FINANCIAL. FOREIGN 

DATA FORMERl .'/ • I- ORTV .. FR I END .. GAUGE 

DRTR i".ENIUS . GuVERfU-IFNT. GRAMMAR 

DATA GRAMOPHONE - GR I EVINCE.' GUARD 
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1950 riRTH 

29eiy IihTh 

£910 IiRTfl 
2023 LflTR 
2030 IiflTR 
2Q4y HFiTh 
2L150 HHTR 
20^0 IiflTft 
2£i?0 I'fiTH 
2090 LRTH 
2050 IiRTR 
2100 DRTR 
2110 IflTfl 
2120 EflTR 
£130 BRTR 
2140 BRTR 
2150 DRTR 
2150 DRTR 
2170 IiRTR 
21&0 BRTR 
2190 LRTh 
2200 DRTR 
2210 DRTR 
2220 DRTR 
2230 DRTR 
2240 DRTR 
2250 DRTR 
2260 DRTR 
2270 DRTR 
22&0 DRTR 
2290 DRTR 
2300 DRTR 
2310 DRTR 
2;^20 DRTH 
2330 DRTR 
2340 DRTR 
2350 DRTR 
2360 DRTR 
2370 END 
RERDV. 



GURRDIRN.. HANDKERCHIEF,. HEIGHT 
HEROES.. HOHDRRRV.. HUNGROLIS. HUNGRY 
HLtRR I EDLV .■ H VPOCR I S V .. I MRG I NRT 1 OH 
IMMEDIRTELV. IHNIGRRTE. INCIDENTRLLV 
I fJDEFENDENT .. I HD I SPENSRELE 
I NFLUENT I RL .■ I NTELL I GENCE 
I RRES I ST I £;LE .. KNOIJLEDGE . L I GHTEN I MG 
L I TERRTURE . L I VEL I HOOD , LOSE 
LOS I NG .. L V ING .. MR I HTEHRNCE 
MRRRIRGE..riERNT. MEDICINE 
MEIi I TERRRHERN . H I N I RTURE 
MINUTES.. MISCHIEVOUS. MURMUR 
HECESSRRV.. NIECE. HOTICERBLE 
OCCRSIONRL.. OCCURRED.. OCCURRENCE 
on I TTEIi . OP I H I OH .. OPPORTUN I TV 
ORIGIHRLLV.. PRRRLLEL , PRRLIflMENT 
PflSTIf-IE. PERHflHENT, PERMISSIBLE 
PERSEVERANCE. PHYSICAL. PLRHHIHO 
PLERSRNT.. POSSESSES. PRECEDING 
PREFERENCE. PREJUDICE. PRIVILEGE 
PROCEDURE. PROCEEDS. PROFESS I OHRL 
PROFESSCR . PRONUHC I RT I ON 
PROPRIETARY.. PSYCHOLOGY. QUIET 
RERLLV. RECEI VED.. RECOGNIZED 
RECOMMENDED. REFERRED. RELIEVED 
REPETITION. RESTAURRNT. RHYTHM 
SCARCELY. SECRETARIES. SEIZE 
SENTENCE. SEPARATE. SERGEANT 
SEVERELY . SH I N I \iO . S I EGE . S I M I LflR 
SINCERELY. SPEECH. STRENGTH 
SUCCESSFUL. SUPERSEDE 
SUPPRESSION. SURPRISING. SYNONYM 
TENDENCY. TRAGEDY/ TRANSFERRED 
TWELFTH . UNCONSC I OUS 
Uf (NECESSARY. UNTIL . USUALLY 
VALURELE. VI EW. WEDNESDAY 
WOOLLEN 
END 
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GOMOKO 

DESCRIPTION 

In this game the computer takes on the guise of a wise 
oriental and offers us the ancient game of GO or Gomoko. 
The game involves two opponents attempting to create 
vertical, horizontal or diagonal patterns of five disks in a row. 
The board has 10 vertical and 10 horizontal intersecting lines 
to form a grid. 

Each player takes it in turns to position a disk over an 
intersection on the grid battling to be the first to create a tine 
of five consecutive disks. 

The player will find that the wise oriental (the computer) will 
take a long time - 40 seconds - to complete his move after 
calculating all the possible moves. It is possible to win, the 
player will find it very difficult to do so but will gain a 
tremendous amount of enjoyment when he does win. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

After loading type in run and follow the Instructions. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 

40-170 Main program loop. 

180-220 Produce computer's move. 

230-360 Input player's move and check for legality. 

680-840 Check the move chosen in routine at 180 for 

validity and calculate for possible win. 
1470-1600 Display the board of play. 
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10 REM GOMOKO 

30 REM 

40 DIM VMfl>«2>,HF<2>.WD<2.£0.4> 

50 lUM BD<10. 10>,DB<20>:POKE36879,8 

60 GOSUE 1470 

70 GOSUB le© 

S0 GOSUE 230 

90 GOSUB 11 eo 

100 GOSUE es0 

110 IF VMftXC2>=13 THEN WIN=2:G0T0 156 

120 GOSUB 370 

130 IF VMflX<l»=14 THEN WIN =1:G0T0 150 

140 GOTO S0 

150 IF WIN=1 THENPRINT"BiI WIN S"-STOP 

160 PRINT'-WOU WIN II" 

170 END 

174 REM 

175 REM PRODUCE COMPUTERS FIRST MOVE 

176 REM 

180 Rl=INT(RKD<TI>*6>+3 

190 Cl=INT<RND<TI>*6>+3 

200 PF=7736+22*R1+C1 

210 POKE PF>81;P0KE PF+30720.5 

220 RETURN 

224 REM 

225 REM INPUT VOUR MOVE 
22€ REM 

230 INPUT "SETVOUR MOVESa'SRf ,Cf 

240 PRINT" a "j"a"; 

250 R=VFlL<R$)-C=ASC<C*>-64 

260 IFflBS<R-5.5>C=4.5flNDflBS(C-S.5><-4.5THEN280 

270 GOSUB 15S0 

2S0 P=779S+22*R+C 

290 D=PEEK<P> 

300 IF D=46 THEN 35© 

310 PR INT "SPACE OCCUPIED" 

320 PFI=120: GOSUE 1520 

330 PRINT "a a"; 

340 GOTO 230 

550 POKE P. 87 -POKE P+30720.2 

360 RETURN 

370 FOR H=l TO 2 

380 IF VMFIX<fi)<14 GOTO 410 

390 GOSUB 1410 

400 RETURN 

41*5 NEXT a 

420 FOR ft-1 TO 2 

•130 IF VMflX<fl)<10 THEN 470 

•140 IF fl=2 riMTJ VMHX<2><12 AND VMftKCl >=9THEN470 

450 GOSUB 1220 
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460 RETURN 

47e NEXT Fl 

480 FOR fi-1 TO 2 

490 IF VMflX<R><9 THEN 520 

500 GOSUE 1220 

510 RETURN 

520 NEXT fi 

530 PNflX=6 : HT=0 

549 FOR Rl=l TO i0 

550 FOR 01*1 TO 10 

see IF BIiCRl..Cl>=0 THEN 630 

570 P=BD<Rl.Cn 

580 IF P<PriftX THEN b30 

590 IF P=PMfiX THEN 610 

600 NT=0:PMRX=P 

610 HT=HT+1 

620 RM<NT>=R1 Cfia'fr>=Cl 

630 NEXT C1..R1 

64 g PH= I H T ( RND C 1 ) *NT > + 1 

650 PF=?796+22*RM( PH? +CM< FN > 

660 POKE PF>S1;P0KE PF+30720.5 

670 RETURN 

6S0 V=0 

690 FORIL-1 TO 2 

700 VNflJ<CIL>=0-HFaL>=0 

710 NEXT IL 

720 RL=l:RU=6 

730 r:L=i:i::U=10:F=22 

740 GOSUE 850 

750 RL=l:RU=10 

760 CL=i:CU=6:F=l 

770 GOSUES50 

7Se RL=l;RU=6 

790 CL=1 •CU=6:F=23 

300 GOSUES50 

810 RL=1 :RU=6 

820 CL=5:CU=10:F=21 

830 GOSUES50 

840 RETURN 

856 FOR R=RL TO RU 

S60 S=7796+22-+R 

S70 FOR C=CL TO CU 

880 3S=S+C 

tiSiS FOR 1=0 TO 4 

900 CIi=3S+F*I 

910 ri=PEEK(:cii> 

920 IF 11=46 THEN DW<I>=CB-GOT0 970 

930 IF TP=0 THEN TP=IJ : 11= <<TP-'3 0/6+0 

940 IFTPOIJ THEN V=0 ■ TP=0 ■' GOTO 1140 

950 V=V+5-AESCI-2> 

^60 Dwa>=0 
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970 NEXT I 

930 IF V=0 THEN 1140 

<i3Q IF V<VHfiX<II) THENV=0;OOTO 1860 

000 IF V=VMfl>i<in THEN 1920 

010 NF<n)=0-VMflX<in=V 

020 NFai>=HF<Ii:) + l 

030 FOR J=0 TO 4 

040 wii<ii..HFai).J>=rw<j) 

050 NEXT J 

060 FOR J=0 TO 4 

070 IFIiW<j:5=0 THEN1120 

0S0 IiIi=DW<J)-775S 

090 Rl=IHT<Ml/22> 

100 Cl=riD-22*Rl 

110 BrCRl.Cl>=BD^Rl>Cl)+l 

120 NEXT J 

130 V=0:TP=0 

140 NEXT C.R 

150 RETURN 

160 FOR R=l TO 10 

170 FOR C=i TO 16 

180 EDCR..C>=0 

190 HF<II>=HFai>+l 

200 NEXT C.R 

210 RETURN 

220 PMflX=0:NT=6 

230 FOR 1 = 1 TO NF<fl> 

240 FOR J=0 TO 4 

250 P=WD<fl. I.J> 

260 IF P=0 THEN 1346 

270 R 1 = I NT < <P-7796 > /22 > 

2S0 C1=<:P-7796)-22*R1 

290 IF Eri<Rl..Cl><PMRX THEN 134© 

500 IF BIJ(R1.C1>=PMRX THEN 1320 

S10 NT=0:PMflX=BD<Rl.Cl> 

320 NT=NT+1 

330 DECHT>=P 

340 NEXT J 

350 IF f\-2 RND PMRX=1 THEN 1399 

360 PH=IHT<RNIiCU*NT> + l 

370 POKE riE<PN)/81 :POKE BBc:PN>+30720.5 

3S0 RETURN 

3'^Ci riOSUB 520 

400 RETURN 

■110 FOR J=0 TO 4 

■■t20 IF WD<fl. l.-J>==0 THEN 1440 

.150 P^NIKft, l.J> 

440 Nt:::T j 

■150 POKE p. SI POKE P+30720,5 
\.lf:£^ RETURN 
1464 REN 
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1465 


REM nrSPLRV 


EOflRD 


1455 


REM 




14?0 


PRINyrKKM" 




14S0 


PRIHTTflE<7>; 


"FlECDEFGHIJ" 


1490 


PRIHTTftBCb); 


"m^m^^^^^" 


1500 


NH=4 




1510 


FOR 1=1 TO 10 


1520 


IF I>9 THEN 


NN=3 


1530 


prihttfiecnn:) 


■.STRt<I>+"R^. 


1540 


NEXT I 




1550 


PRINTTflB<6>J 


"^m^^^^msG" ; 


1560 


WIN =0 




1570 


RETURN 




15S9 


T1=TI 




1590 


IF TI-TKPfl 


THEN 1550 


1600 


RETURN 





!is:^ 



REftDV. 
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SUPERMIND 

DESCRIPTION 

This game is modelled on the popular Parker Bros, board 
game of Mastermind. The program allows the user to guess 
at its random combination of colours and will reply with a 
white marker if the colour is in the combination but not in 
that position and with a black marker If it is in the correct 
position. The function keys are used to choose the row, the 
keys 3-8 to choose the colour and the return key to enter the 
guess. It has nice use of colours and is easy to follow. 

EOUIPMENT REQUIRED 

Basic VtC-20 with no expansion. 

RUNNING THE PROGRAM 

After typing run, three pages of instructions will appear 
separated by 'press any key' when the instructions have been 
read, pressing any key starts the game. Using the function 
keys, the row on which the colour is to be placed may be set. 
The computer will not accept any colours until the return key 
has been pressed, and only then, provided that there are 
colours in all four of the positions on that column. If the 
correct combination has been guessed, or all 14 guesses are 
used up, the computer will display its secret and ask if 
another go is required. 

PROGRAM STRUCTURE 

The following lines may be of interest. 

50-90 Input for instructions. 

100-280 Display the board on the screen. 

290-350 Choose four random colours, all different. 

410-450 Set white markers in every position. 

460-500 Input and check that the key pressed is 

acceptable. 
510 570 Display pointers so that all pointers are to the 

riciht cjxcopt the pointer on the row chosen. 
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580-630 Put chosen color in the chosen position. 
640-660 Failed to guess the combination. 
680-690 Check for colours In the correct position. 
710-740 Checl< for correct colours but in the wrong 

position. 
750-760 Display the last two routines above the 

correponding columns. 
810-860 Display the combination. 
870-910 Input for another go. 
950-1310 Instructions. 
1320-1340 Hit any key input. 



m m '^ ^uifETRM I Hs^ : tfi-iit m 



m 










m 


m 


m 


m 


m 










m 


c* 


•Sft 


m 


m 










m 


• 


m 


=m 


• 


1 


1 


-:-V- 


• 


• 





♦-3 

- 4 



1/W 



tS REM SUPERMIHD 
20 REM 
30 REM 

49 22=0 

53 PR I NT " n»ttI«8IBW81I NSTRUCT I ONS < V/N > ? " 
60 GETL$ : IFLSs" "THENeS 
70 IFLt="V"THEN920 

50 IFL«="N" THEN 100 
90 GOTO60 

94 REM 

95 REM SET UP BOARD 
(^g REM 

100 PRINT":»in!mi»nW iSUPERMlHIi k*fl»S(f" 
110 POKE3fc"S79.140 

120 PRINT":i!l)««««««W)SB ":DIMX<4>..D<4> 
130 R=?699 

1 40 PR I NT " I I I r I " 

150 F0RM=lTCi3 

1 €0 PR I NT " 1" ; ; FORW= 1 T09 

170 PR I NT "*31"; -NEXT; PR I NT" •«-'' 

ISO PRINT" (■"; :F0RW=1T03 

190 PRINT"-f"; :NE>^T:PRIHT"— I" 

2m MEXTM 

r^l0 PRINT" }%:F0RW=1T09 

220 PRINT"*S1% ■NEXT:pRINT" *■» 

230 PRINT" ' ' I I ' ■ ' ■ ' ■■■ 

240 F0Rft=13T019STEP2 

250 Pi:iKE7701+22*ft,49+E 

260 P0Ke3S421+22*fl. 4 

270 E=E+1 

230 NEXT 

234 REM 

235 REM CHOOSE RRHDOM COLOURS. FILL DIFFERENT 
23e REM 

290 X<i:J = INT<RND<l>*e>+2 

:"o00 X<2>=INT<RND<l)*€>+2 

310 IFXC2)-X<1>THEN390 

320 X<3)=IHT(RNDCl)*6>+2 

3S0 IFX<:S>=X<1>ORX<3>=>«2>THEN320 

34g XC4>=IHT<RNDCl)*6)+2 

350 IFK<4>=:X<1)ORXC4>=X<2>ORX':4)=X<3>THEH340 

3i.;0 G=0 

3r*0 F0R2=13T019STEP2 

3:^:0 C>~'j+1 

3" '0 POKE3S40O+ 1 +22*2 , : P0KE768 1 +22*2 . 1 02 

-100 NEXT 

•104 RCM 

•)|-i5 RCM WHITE "•"S" IN EVERV POSITION 

40^ PIH 

•110 F0R"t'=13T019STEP2 

■120 POKE76S0+1+22*V.81 
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430 NEXTV 

446 F0RW=1T025Q = NEXT ■ PR INT". =3" 

450 I=44:GG=79:^i9-ZZ 

454 REH 

455 REM INPUT + CHECK FOR ILLEGAL KEV PRESS 
4bS IjETi:!:$ ■ rFQ*=" "THEM450 

470 I FRSC < Q$ ) = 1 :3THEH630 
43G I FRSC C Q* ;' > 1 32flHDRSC < Q$ :> < 1 37THEH5 1 tj 
49S I FhSC ( OS > >5HinHIiH:E;Ci; Q* ><57THEH5St3 
500 G0Tu4t"y 

504 REM 

505 REM PUSH POINTERS OFF RON 
50t; REM 

510 F0RS=7935T0S1 17STEP44 
520 PGKES+1.3i 
530 POKES .32 
540 NEXT 

544 REM 

545 REM PUSH POINTER TO ROW 

546 REM 

550 L=£*RSC';Qf>-253 

560 PGKER+L*22,31 ;P0KER+1+L*22.> 32 

570 (.■iUTLi45y 

574 REM 

575 REM PUT COLOUR IN POSITION 

576 REN 

580 F=VRLCQ*:^-1 

530 IFL=0THENL=13 

600 P0KE3S417-ZZ+L#2£, F 

610 Ii(-;l-11)/2)=F 

620 riGTn450 

630 iFZZ<>14THEH650 

634 REM 

635 REM FILLEIi ALL 14 COLUMNS 

636 REM 

640 PRINT"VOU HRVE NOT SUCCEEIiED" ; IjOTO810 

eZiJ ZZ=ZZ+£:F0RLJ=lTn4 

660 I FIi ( H ; =0THENZZ=ZZ-£ ■ 0070456 

670 NEXT 

674 REM 

675 REM CHECK FOR ELflCK REPLV 

676 REM 
630 Z=0 : V=0 

696 FnRT=lTn4; IFXa;=Da)THENZ=Z+l 
70S NEXT 

704 REM 

705 REM CHECK FOR WHITE REPLV 

706 REM 

7 1 FURE= 1 T04 ; F0RH= 1 TG4 : I FX ( E ;* =D ( H > THENV- V+ 1 

720 NEXT ■ NEXT : V^V-Z 

730 FORt'J- 1 TIJ4 - D a^i :>=0 ■ NEXT 
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?4& IFZ=GTHEN730 

744 REM 

745 REM DISPLflV REPLV 

746 REM 

750 F0RW=1 TOZ ■ P0KE<GG+44>-W*44, 81 
7^0 POKECGG+30764>-W*44. - UEyj 

764 REM 

765 REM INPUT FOR FtHOTHER GO 

766 REM 

779 IF2=4THEN810 

7S9 IFV=0THEN450 

750 FORW= 1 TO V POKE C66+44>-<W+Z>#44>81 

S00 POKECGG+30764>-CW+Z>*44> I = HEKT : GOTO450 

804 REM 

805 REM DISPLflV COMBIHflTIOH 
80"S REM 

810 G=0:FOR2=13TO19STEP2 

820 G=G+1 

830 POKESS400+1+22*2,X<G> 

340 NEXT 

850 FORW= 1 TO7000 ■ KEXT 

860 P0KE36S73.27 

870 PRIHT":i(!li!H!l!!l«i!ftHflRHOTHER GO ?" 

880 GETR$ : IFR$=" "THENSS0 

890 IFR*="V"THEHRUN 

Sm 1 FR$- "N " THENP0KE36879 . 27 : END 

910 GOTO 880 

920 REM 

530 REM INSTRUCTIONS 

94t3 REM 

55fi PRIHT'-ITTHIS IS THE GAME" 

96^ PRIHT":?KP aSUPERMIMDl" 

970 PRINT"WSIN THIS GfiME VOU HRVE" 

980 PRINT "TO GUESS THE COLOUR-" 

990 PRINT"COMI:IHfiTIOH DEVISEB" 

1000 PRINT"BV THE COMPUTER. THE" 

1010 PRINT"4 COLOURS PRE HIDDEN" 

1020 PRIHT"EV THE COMPUTER AND" 

1030 PRINT" IT WILL TELL VOU " 

JO-UJ PR I HI "WHETHER VOU HAVE " 

If-i5ij PRINT"GUESSED CORRECTLV OR" 

1 1 160 PR INT "HOT. 

luVO GOSUE'1320 

r:i8o PRINT":!^ white marker tells " 

J 090 PR I NT "YOU that A COLOUR IS" 
I I f 10 PR I NT " I N THE COMB I NAT I ON BUT " 
I J 10 PRINT"NOT IN THE RIGHT PLACE" 
I 120 r-'RINT'TlND n BLACK MARKER" 
I 130 l>PIHT" TELLS ','OU THAT A " 
1140 I IvN IT "COLOUR THAT VOU GUESSED"; 
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11 "^fi PRINT" IS IN THE COMEINRTIOH" 

ikr print"hhd ih the right FLRCE" 
17l1 pr i nt "choose the rows ev" 

1i=:m PRIMT"PRESSIMG KEVS F1/F3." 
190 PRIHT"F5.. OR F7 RESPECT IVELV" 
2^'W nOb'UBloSe 

210 PRINT ":7THE COLOURS THAT VOU " 
220 FRINT"MHV CHOOSE RRE 3-S" 
2:-:0 PRIMT"THESE COLOURS ARE RS " 
240 PRINT "FOLLOWS: 3- RED" 
250 PRINT" 4- CVRN" 
2f-"H PRINT" 5- PURPLE" 
27m PRINT" €■- GREEN" 
280 PRINT" 7- BLUE" 
290 PRINT" S- VELLOW" 
300 GUSUE1320 
:-; 1 8 Gi'iTiJ 1 OO 

S2^■^ PRINT":pM«!!M!!HIT RHV KEV"; 
330 GETLJ: IFLf=""THEH1330 
340 RETURN 
REHliV. 
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CONQUEST 

DESCRIPTtON 

In Conquest the aim of the game is to vanquish the knights 
protecting the castle. The display consists of a green 
background and a believable castle with a 
heart— representing the knights moving to various positions 
within the castle. 

Frustratedly, the attacker— a cannon— seeking to demoralise 
the defenders and hetd at bay by a moat, fires on the user's 
command. 

EQUIPMENT REQUIRED 

Basic VIC-20. 

RUNNING THE PROGRAM 

Simply load, type RUN and follow the instructions. The 
operating keys are: A = left, D = right, *=fire. 
The ptayer must also remember that 9 = easiest and 
1 = hardest in the levels of difficulty. You have only 60 
seconds to complete the game. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows: 

30-90 Print instructions. 

100-190 Input difficulty level. 

200-370 Display castle. 

380-840 Play the game. 

850-970 Finished, input for another game, 

1110-1190 Play tune at beginning of game. 

1200-1240 Data for music. 

1250-1300 Input from keyboard. 

1320-1380 Run out of time. 

1390-1460 Display commands. 
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■ SCrORE: m T I ME, . -*S 
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1 REM CONQUEST 

2 REM 

3 REM 

10 FOR I =32eT0835 ■ POKE I . 255 : NEXT 
20 P0KE36S79 .92- P0KE36869 > 242 

24 REM 

25 REM INSTRUCTIONS 

26 REM 

30 PR INT" XONQUEST" ■' PR I NT" 

4@ PRINT"Wt'OUR aim IS" 
50 PRINT">irO KILL ALL THE" 
PRIHT^'^HRSTV KNIGHTS " 
PRINT".WJHO ARE HIDING " 



by 

70 

se 

90 
34 
35 
96 

100 

lis 
120 
130 
140 
150 

leo 

170 
1S0 

190 
194 
195 
196 
21-10 
219 
220 
230 
240 
250 

2ee 

270 
280 

29 u 

300 
S10 

32w 
330 
340 
3^0 
:'iSy 
370 
:74 
■.:/S 



PRINT"J!BROUND THE CflSTLE. " 

GOSUB1580 

REM 

REM INPUT D I FT I CULT V LEVEL 

REM 
PRINT'TJINPUT DIFFICULTV" : PRINT" ]SW<l-9>" 
GETDH* : IFIIH*=" "THENl IS 
riF=yF)LCIiH$> ■■ IFDF<1ORDF>9THEN110 
DEFFNE<X:)=INT<RNDC4>*150+DF*10> 
K=197:Z=PEEKCK> 
P0KEE:25.riF 

deffnR';x>=int<:rnd<s>*90+tv> 

P0KE3iS©69. 240 = TL=7742 : TD=7?24 
Vl=106- V2=l 13 V3=l 17; BL=8142 

KN=S3 : flR=30 : TV=7758 

REM 

REM DISPLftV CfiSTLE 

REM 

PR I NT " raniBiwMrLrLn 



I 



u~u 



PRINT"»*»8!| I 

FRINT"MiSW I ! 
PRIHT"»6li»K I / 
PRINT"* WW [ ! 
PRINT'-SBBiBl/' \ 
PRIHT"Si>W 
PRINT"li»»|i| 
PRINT"Mi|i»l 
PRINT">B»»I 

PRINT"lifli»»l > . 

PRINT">»i6(|!| 1 I 

PRINT"»»W I I 
PRINT"'>B»6i| I I 
PRINT'-WSil 

PRINT"»»Bi|il 

PRINT"3:4 

PRINT" 

REM 

Rt"M PLflV THE GAME 



ruT-n 



\ I / 
t I 



\ 
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37to REM 

:;:SQ POKEEL. V 1 ■■ POKEBL+1 . V2 = POKEE'L+2. V5 

SlHti PR I NT " iKWXORE "S -11*= " seacisci " 

408 PO=FHHi;T) 

41y MPl=PEEK<Pu.') ■■ IFriF=0THENDF=PEEK<S£6> 

4£M PORI = iri:iIHT':RHIi(SO+rF*10> 

4::i£i PRINT"S-isiEi»l3&S:5i&e9yiITlME "RIGHT.|:<TIf . 2) 

44ti I fvhl c:t r* >>i sotheh 1 320 

45ti LiIJSUB125D 

4c;0 FOJCEPO .. KH ■ PLiKEP0+3S?2Q > 2 

470 pijk-:ek>gi;hext 

4;E;Q POKEPOjMM 

490 6070400 

500 Pi:iKE36379.27;pRINT"T 

510 IFEL+l>31c'lTH£H5b0 

520 POKEEL. 32 : PuKEEL+1 .. 32 = POKEBL+2. 32 

530 BL=BL+1 : IFBL>3161THEM566 

540 POKEBL. Vl ■ PGKEEL+1. V2 :PCiKEBL+2. V3 

550 RETURN 

5t'0 T2=T2+0. 5: RETURN 

570 REM LEFT 

530 IFBL-K3142THENRETURN 

5'^ii POKEBL.. 32 : POKEBL+1 . S2 ■ POKEEL+2, 32 

600 BL=BL-1 ■■ IFEL<S142THEH56Q 

hlH POKEBL. VI : POKEEL+l . V2 : POKEEL+2, V3 

620 T2=T2+. 5: RETURN 

t"30 Pi:iKEob373. 15:T3$=TIf 

b4M FnRW=BL+lTQ7724STEP-22 

S50 X;-,-PEEK<N> ;VV=PEEKa-J+3ei720) 

650 IFPEEI«W>=S3THEN710 

670 POKEth RR ■ POKEN+3072D. W = POKEK^ 

DtiO FQRU=255TG1 35STEP-1 = P0KE3b376. U = NEXT 

69H) PuKEt'J ,. ?^M ; POKE W+30 720 > VV ■ NEXT 

700 P0KE36376, ■■ TI*=T3* : RETURN 

710 F0KE36S76; ■ P0KE36S77, 240 

720 FORDE=1TO20 ■■ P0KE36S77. = POKElJ+3072tT> 4 

730 POKElJ+50720; 1 ; POKEK. = P0KE36S77. 133- NEXT 

748 TI|:=T3$:pi:iKE3b377..G . 

750 P0KEU+3072y.. VV : POKEW^ MM : POKEK. 

760 S=3+l 

770 PRINT":ciiit5C0RE "S : T2=VRL<RIGHT*<TI*i 2>> 

730 IF S>5 THEN SOS 

730 nMSGriTOS20j 330.. 320.. 930^ 32G 

300 3=3-5 

310 0N3GGT05&O. 320. 330. 320. 840 

820 IFT2>1O0THEN1320 

330 POKEK .. : GOTCI400 

340 GOSUE1110 

344 REI1 

345 REM CONGRflTULRTIONS. FIHISHEE 

346 REM 
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B5& PRrHT"at!3ftN0LI HAVE VRHQUISHED" 

S60 PRINT ";!*nr:HE evil knights-".: 

370 PRIHT":i3li!?!Sf3Sa!flBB.iELL DOME!" 

8S8 PRINT ":i!T«rT'uUR TIME="T2 

ft30 PRIMT":fflincSKJLL LEVEL"PEEK<S25>">" 

?(30 DF=PEEK(S£5? ■Tl=PEEK>:825+riF> 

9 19 IFT2^T1THENT1=T2 

?20 PRIMT"Mi!?'BaLCiWEST TIME="T1 

330 P0KES25+IJF..T1 

940 PRIHT-WiSftHCiTHER QUEST?" 

35i? GETfl* : IFFll^<>"V"RNrff=(*O"N"THEN950 

9€S IFfi*="N"THEH1450 

970 CLR-GOJOim 

■=|RPi POKER 1 fi3 . S : PnKE3S?05 . 5 

50 IFVflL<TI*»lD0THENlS2e 

1590 BL=EL-81 42 - P0KE8 1 S3. BL ■ POKE3S903. 5 

010 CLR 

020 riEFFHR<DF)=INT<RHD':S)*90+TV> 

030 DEFFNB < I'F.-) = IHT <RHD < 4> sfDF*! 0> 

040 K>197;Z^PEEK<K> 

050 TL=r742 ■ Tl!=7724 : 71 = 156 ■ V2=l 13-- V3=l 17 

0f KN=S3 : flR-30 : EL=PEEK<:S1S3>+Si42 : TV=775S 

070 T2=PEEK<81S4> :S=PEEKC8135> 

080 fRlHT"]if&m'6C0RE "S 

0S0 DF^PEEKX^a?^ 

1 00 POKEseses. 240 : ru=2 - GOTO40e 

104 REM 

105 REM PLflV TUNE RT BEGINNING OF GRME 
105 REM 

1 1 RES TORE ■■ 32=56876 : V=36S78 

120 POKE'-/.. 15 

130 REflrP 

1 40 IFP=- 1 THENRETURM 

150 P0KES2..P 

160 RERDI" 

1 70 FORDE=I TOP = NEXTDE 

1ft0 POKES2j0 

190 GOTO 11 30 

154 REM 

195 REM DflTR FOR MUSIC 

196 REM 

£00 DflThl217.200..213.2e0.223>400 

2113 DflTR227.. 1 So. 234. 190. 239 ..400 

220 IifiTfi227.. 100.. 234. 100. 230. 400 

230 DRTfi223 , 200.. 227,, 200.. 217.. 200 

240 DflThl-1 

244 REM 

2^5 REM INPUT FROM KEVBOfiRD 

246 REM 

2m FORT=1T01 

26f-i Z=PEEK<K> 
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12?e IFZ=14THENGOSIJE630 
1280 IF2=1STHENGOSUE510 
12S0 IFZ=17THEHGCtSiJE570 
1380 NEJ<T 
1310 RETURN 

1314 REM 

1315 REM RUN OUT OF TIME 

1316 REN 

1320 F0RDE=1T01 500: NEXT 

1330 PRINT'TftiCUT OF TIME!" 

1340 PRIMT'-WflMRNOTHER QUEST?" 

1350 GETR$- IFH*O"V"flNDfl*O"H"THEN1350 

1360 IFflt=="N"THEN1450 

137e CLR^GOTOISQ 

1330 IFTU>1THEHRETURN 

1354 REM 

1355 REM DISPLfiV COMMHNBS 
1386 REM 

1 390 PR I NT " :«««:0Mf1ftND3 : " ; PR I KT " 

1400 PRINT"fi-CflNHuN LEFT" 
1410 PRIHT"If-CflNHOH RIGHT" 

1429 PRIHT"*-CRHNON FIRE" 

1430 FORI=lTO3-GOSUBni0:NEXT 
1440 RETURN 

1450 P0KE368?9.27:PRINT"3n" 
REftDV. 
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HI-RES AID 

DESCRIPTION 

This program is a useful aid to producing grapliics 
characters. With this program the user may design any 
characters he wishes (subject to the limitations of the grid). 
Using the data he will be provided with, the user has a ready- 
made data statement for his own program. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

This program will run without expansion if all the REM 
statements are removed. 

After loading and typing RUN, the user will initially see the 
words 'Moving chr generator' appear at the top of the 
screen. After that the screen will dear and an 8 x 8 grid is 
drawn out. The user then inputs the X and Y co-ordinates of 
the block he wishes to fill, without separating by commas. 
The block is then coloured in and the user carries on drawing 
in his character. When the user wishes to see what his design 
looks like he must type in co-ordinates 00; the screen clears 
to display hundreds of little aliens (or whatever). 
Hitting any key then prints out the values to be entered as 
data for that particular character; then the user may continue 
to design another character. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 

80-170 Print out for grid. 

190-200 Input co-ordinates. 

220-230 Calculate X and Y from previous routine. 

250 Check if in range. 

270 If 00 entered, end of design. 

290 Bleep to show input accepted. 

310 Calculate top left hand corner of block. 
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330 Check for double entry. 

350 Print out blocks. 

370-380 Calculate value of block. 

400 Turn bleep off. 

420 Return for next input. 

450-480 Store the character. 

500-510 Change the registers. 

530-600 Set screen to black and display hi-res character 

on the screen. 
620-710 Restore the registers and display the values of 

the character on the screen. 
730-770 Move the character generator. 
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10 REM****HI-RES fllD**** 

£0 REM*-****:***:*****:***** 

30 PRIHT":7CVIHG CHR GENERATOR" 

40 GOSUErSD 

50 PRINT: PRINT 

60 REM:**SET VI=lRIflELES*# 

?0 Q= 1 61-5 ■ $3=3€-S?6 ■ P0KES3+2. 1 5 

80 REM**PRINT OUT GRID** 

30 PRINT"*:": PR I NT 

190 PRINT" 1 2 3 4 5 6 7 S** 

110 F0RI=1T0S 

120 PRINT"! I I I I I I I I " 

IC-iS PRTNf l I 1 r I I I I I " 

140 NE^^TI 

159 PRINT"TMPlB<:i9>"V" 

160 Z=7700 
178 PRINT 

180 REM**ENTER CO-ORDINl=ITES#* 
190 INPUT "XV" J fl* 
200 IFLEN<Pl*><>2THEN420 
210 REM**PICK OFF X.V** 
220 X=VftL<LEFT$<:fi$, 1>> 

230 v=vrl<;right$<r$, 1>> 

240 ref1*.*check to see if in range** 

250 IFX>;5ORV>STHEN420 

260 REM**ENri OF DESIGN** 

270 IFX=0PiHDV=0THEH430 

290 REM**DLEEP ON** 

290 POKES3.200 

300 REM**C:ftLCULfiTE TOP LEFT HAND CORNER OF BLOCK** 

310 P=2+X*2+CV*44) 

320 REM**CHECK FOR DOUBLE ENTRV** 

330 IFPEEK<P)=QTHEN420 

340 REf1**PRINT OUT BLOCKS** 

350 POKEP . Q : POKEP+ 1 .. CJ : POKEP+22 , Q ■ POKEP+23 , Q 

360 REP1**CftLCULflTE VALUE OF BLOCK** 

370 U=fll!SCK-8> 

380 flOT'>=fl<V>+<2HJ> 

390 REri**I:LEEP OFF** 

400 POKES3..0 

410 REM**EflCK TO INPUT** 

420 PRI NT ".Tl" ■■ GOTOl 59 

430 PRI NT "D" 

440 REM**STORE PATTERN^ S VALUE IN NEW GENERATOR** 

450 POKES3.0 

460 F0RI=1T08 

470 P0KE6143+I,fla) 

4:;:0 NEXT I 

■1:^0 REM**CHmNGE REGISTERS** 

!>r»^ F'0KE:36S69.. ;*"=;3 

'J 1 |-'DKf£ 36S66 ■ PEF.K < 36866 > OR 1 23 
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520 REf1.**CHHHGE SCREEN COL. TO BLRCK** 

538 P0KE36S79..S 

540 PRINT M" 

550 REM**PRIHT HI -RES CHR. ON SCREEN** 

560 FURI=??02TOS1S5STEP4 

570 POKE I. 12S 

5S0 fJEKTI 

5y0 PRrNT"SJ^ HIT RNV KEV 

cm GETfi:F : IFR$=" " THENeQti 

biy REM**RESTOR'E REGISTERS** 

620 PL'KE36Sb9..£40 

bSQ POKESbSt't".. 150 

640 PRINT"."B" 

650 Pi:iKE36S79..27 



660 


PRrNT"THES 


;e hre 


THE VRLUES" 


670 


PRINT")!7ri:i 


ENTER 


RS IiRTR"; PRINT; PRINT 


680 


FLiRI = lTO£: 






t9Q 


PRINTfla> 






700 


he:-:ti 






710 


Enri 






720 


REM**MOVE 


CHR. GENERhTOR** 


730 


FnRI=LiT0U3 


124 




740 


PUKE5120+I 


.PEEK' 


:3276S+n 


750 


NEXT I 






760 


PR I HTM" 






770 


RETURN 







REHliV. 
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TINYMON 

DESCRIPTION 

One of the functions missing on the standard Vic is the ability to 
enter and explore the Inner workings of the machine. The 
program Tinymon allows access to the Vic's internal memory, 
on either the standard Vic computer or one with any size 
expansion added, and provides six commands for manipulation 
and working of that memory. 

Once the program has been entered and RUN (see next 
section), the following six commands are available ; 

1) All monitor Instructions start with the prompt '.'. To 
display memory, enter : 

.M 123E 12A7 (for example) 

And the Vic will respond with something like ; 

.123E AA39 17FF04etc. 

To change memory, display the required range of memory first, 
and then just type over the locations to be changed. Don't 
forget to press RETURN first! 

2) To display registers, enter : 
.R 

and the Vic will display (for example) : 



PC 


SR 


AC 


XR 


YR 


SP 


.;1234 


30 


00 


22 


33 


PB 



These are the internal registers of the 6502 processor. To 
change them, just type over the on^ you wish to alter, and 
then press RETURN, 

3) To return to Basic, enter : 
.X 

4) To run a machine language program, enter : 
.G 1400 (for example) 

and the program will execute from that address, 
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5) To save specific memory locations, enter : 
.S 'NAME',01,125O,13A0 



Where 01 is the device number (cassette deck in this 
instance), 1250 is the start address of the memory btocic you 
wish to save, and 13A0 is the end address PLUS ONE !! 
Always add one to the end of the memory block you want to 
save, owing to a peculiarity in the Vic's operating system. 

6) To load programs into memory, enter : 
.L 'NAME',01 

Programs always load to where they were saved from. 
ENTERING AND RUNNING THE PROGRAM 

To enter the program, a monitor is required, you therefore 
need access to a Commodore PET computer before going 
any further. The reason for this? This program will give your 
Vic a monitor, but to enter the program you need a monitor. 
Using a PET, enter its monitor by entering SYS 1024 
{RETURN], and display the first block of numbers and letters 
by entering .M 0400 0438. This will bring up a display of 
numbers, and you have to type in the ones shown in the 
listing at the end. Don't forget to press RETURN at the end 
of each line. 

When you've finished the first block, enter .M 0440 0478 and 
type in the second group of numbers. 
Carry on in this manner until the final block i.e. .M 0800 0818. 
Before doing anything else, save this by typing .S 
'nNYMON',01 ,0400,0619, assuming you are using a cassette 
deck. 

With something of this length it is more than likely that you'll 
have made a mistake or two along the way, the following 
'checksum' has been provided to a) see if you've typed it all 
in correctly, and b) find out where the errors lie. 
Type in the following short program, IN DIRECT MODE 
ONLY, if the number that is printed up at the end equals 
117952, CONGRATULATIONS!! You should have a working 
copy of Tinymon, 
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A = 0:FORI = 1024TO 2079 : A = A + PEEK(I):NEXT:PRINTA 

Take your tape over to your Vic, load it in in the normal way, 
and RUN it. You now have access to the Vic monitor, which 
can be re-accessed by a SYS 13 call. The program itself 
occupies about 800 bytes, that should leave plenty of space 
for you to explore the inner workings of the Vic, 
If the number displayed is not 117952, then we have 
problems. Take the program mentioned earlier ; 

A = 0:FORI = XTOY:A = A + PEEK(t»rNEXT:PRtNTA 

The following table shows the values of X and Y to be 
entered to check each block in turn, and the total that should 
be displayed. If your total differs from the one printed here, 
you've found a block with a mistake (or two) In it. Re-enter 
the monitor, check your listing against the original, and 
correct any mistakes you find. After checking each block, re- 
save the whole program as described earlier. 



BLOCK 








NO. 


X 


Y 


TOTAL 


1 


1024 


1087 


3841 


2 


1088 


1151 


6376 


3 


1152 


1215 


6272 


4 


1216 


1279 


5922 


6 


1280 


1343 


8322 


6 


1344 


1407 


8022 


7 


1408 


1471 


8451 


8 


1472 


1535 


7098 


9 


1536 


1599 


5853 


10 


1600 


1663 


7007 


11 


1664 


1727 


K/H/ 


12 


1/28 


1791 


7240 


13 


1792 


1855 


6786 


14 


1856 


1919 


9362 


15 


1920 


1983 


9475 


16 


1984 


2047 


6551 


17 


2048 


2079 


3130 



The effort Involved in typing this in should be amply 
rewarded by tho results obtained. 
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10 FRINT":7v'nriH 10 '^<P" 

20 PRINT":?]. R 

30 PRINT" REGISTER niSPLflV 

40 PRINT":?]. M FFFF TTTT 

50 PRINT" MEriORV BlSFLfW' 

60 PRINT":?!!. X 

70 PRINT" EKIT TO Eh:E:IC" 

y0 primt":b3.g flflhin 

32 PRINT" GOTO (.Ey.> flDDRESS 

100 PRINT":!!]. S"r:HRt';34:i"PPPP"CHR$';34>%01jFFFF..TTTT 

110 PRINT" SRVE PROGRnM 

120 PR I NT " :«. L " i:HR$ >:; 34 '^ " PPPF " CHR-I: ': 34 > 

130 PRINT" LORIi PROGRRM 

REflDV. 

100 PRINT"n5l«:-*B»! TINVHON 

110 PRIHT":b1 JIN EUTTERFIELD" 

129 SVS';PEEK(:43:.^+256*PEEK':44;+D78.'> 

REnriv. 



REhUV. 
B3|e 



PC IRQ SR flC XR VR SP 
0005 Eb2E 30 00 5E 04 Fo 



0400 


00 


13 


04 


64 


00 


99 


22 


93 


0408 


11 


11 


12 


ID 


ifi 


Vb 


20 


54 


0410 


49 


4E 


5S 


411 


4F 


4E 


20 


00 


04 IS 


31 


04 


hB 


00 


93 


22 


11 


2 ft 


y4;i:y 


4H 


49 


411 


20 


42 


55 


54 


54 


04 2 S 


45 


52 


46 


45 


45 


4C 


44 


22 


0430 


00 


4C 


04 


-jrt 
i' '-■ 


00 


9E 


■-II-, 


il"2 


043S 


2;^ 


34 


33 


23 


Hfl 


32 


35 


36 



0440 fiC C2 £3 34 34 29 flR 30 

044:5 37 33 29 SQ 60 00 ER ER 

0450 h5 2L S5 22 fl5 2E 85 23 

0453 H5 37 35 24 flS 33 85 25 

U4b0 R0 00 fl5 22 D8 02 C6 23 

0463 C6 22 Bl 22 DS 3C R5 22 

0470 Ii0 02 Ct" 23 Ce 22 Bl 22 

0473 F0 21 85 26 fl5 22 DQ 62 
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04S0 Ce 23 C6 22 Bl 22 18 65 
04SS 24 Rfl flS 26 65 25 48 A5 
043S 37 Du 02 C6 33 C6 37 bS 
0498 91 37 SR 48 fl5 37 EO 02 
04ft0 C6 38 06 37 6S 91 37 IS 
04m 90 E6 C9 EF DO ED fiS 37 
04E0 S5 33 ft5 3S S5 34 6C 37 

04 BS 00 00 80 00 00 00 00 90 



04C0 BF 78 RD FE FF 06 FlE FF 

04CS FF 00 SD 16 ©3 SE 17 03 

04D0 fi9 30 20 90 FF 58 ©0 06 

04D8 63 35 05 63 85 04 68 35 

04E0 03 68 85 02 68 85 01 63 

04E8 85 00 00 Efl 86 D6 38 flS 

04F0 01 E9 02 85 01 R5 00 98 

04F3 E9 00 00 85 06 0© 20 E2 



0500 FE 00 fi2 42 fl9 2ft 20 DE 

0508 FD 00 R9 52 D0 IC fi9 3F 

0510 20 D2 FF 20 B2 FE 00 Fi9 

0518 £E 20 ri2 FF ft9 00 00 85 

0520 27 20 40 FE 00 C3 2E F0 

0528 F9 C9 20 Fo F5 h2 07 M 

0530 ee FF 00 D0 12 85 IC 3fl 

0538 m m BD EE FF 06 85 CI 



0540 ED EF FF 00 85 C2 6C CI 
0548 00 00 Cfl 10 E€ 4C 4E FD 
0550 00 20 ED FD 00 90 F3 20 
0558 EE FD 00 20 BD FD 00 90 
0560 F0 20 EE FD 80 20 4C FE 
0568 00 Fe IF 2& B2 FE G0 fl2 
0570 2E fiS 3fl 20 DB FD 03 £9 
0578 C5 FL 00 R9 05 26 6F FE 



0530 00 R5 C3 C5 CI R5 C4 E5 
0588 C2 E0 DF 4C 50 FD 00 4C 
0590 50 FD 00 20 FE FD ©0 85 
0598 CI SS C2 60 flS C2 20 CC 
05fi0 FD 00 flS CI 43 4ft 4fl 4ft 
05aS 4ft 20 £4 FD 00 Rft 68 29 
05E0 OF 20 E4 FD 00 48 8fi 2© 
05B3 D2 FF 63 4C D2 FF IS GS 



05C0 


F6 


90 


02 


69 


06 


69 


3FI 


60 


05CS 


02 


02 


E5 


C0 


43 


B5 


C2 


95 


05II0 


C0 


68 


95 


i;:2 


Cfl 


ri0 


F3 


60 


05IIS 


20 


0D 


FE 


00 


90 


07 


fifl 


20 


05E0 


0D 


FE 


00 


90 


01 


60 


4C 


4B 


05E3 


FD 


00 


fiB 


00 


00 


35 


2fl 


20 


05F0 


40 


FE 


00 


CS 


20 


F0 


F9 


20 


05FS 


20 


FE 


00 


90 


17 


20 


40 


FE 


0609 


00 


C9 


30 


90 


10 


20 


35 


FE 


OfflH 


00 


06 


2ft 


06 


2fi 


06 


2R 


06 


0610 


2F( 


05 


£h 


S5 


2fl 


38 


60 


€3 


061 S 


3f=i 


08 


23 


0F 


23 


90 


02 


€S 


0€2& 


0S 


60 


£0 


CF 


FF 


C9 


01f 


m 


0€2e. 


FS 


6S 


6? 


4C 


50 


FD 


00 


)=i5 


0S30 


31 


C5 


FE 


110 


05 


03 


20 


rx 


063S 


FF 


28 


60 


20 


61 


FE 


00 


2C 


0640 


2D 


31 


30 


F3 


60 


20 


40 


FE 


064S 


00 


DO 


08 


fiS 


03 


85 


9fl 


|R9 


0650 


00 


00 


35 


99 


60 


85 


IE 


fl0 


0655 


00 


00 


20 


flF 


FE 


00 


Bl 


Cl 


0660 


20 


cc 


Fli 


00 


20 


fi4 


FE 


00 


06by 


C6 


IE 


1J0 


Fl 


60 


20 


Olt 


FE 


0670 


00 


yw 


0E 


R2 


00 


00 


31 


Cl 


067S 


CI 


Cl 


F0 


03 


4C 


4E 


FH 


00 



0630 20 fl4 FE 00 C6 IE 60 R9 
0638 02 §5 Cl fi9 00 00 35 C2 

0630 f\9 05 60 £6 Cl DO 06 E6 
0693 C2 D0 02 E6 27 60 R3 29 
06H0 2C fiS 05 4C D2 FF ft2 00 
06h3 00 BD DO FF 00 20 BS FF 

06E0 ES E0 16 DQ F5 20 B2 FE 
06E3 00 fl2 2£ hS SB 20 BE FD 



06C0 


00 


R5 


00 


00 


20 


CC 


FD 


00 


06CS 


RS 


01 


20 


CC 


FD 


00 


20 


39 


06D0 


FE 


00 


20 


6F 


FE 


00 


4C 


50 


06DS 


FD 


00 


20 


FE 


FD 


00 


35 


01 


06E0 


36 


00 


00 


20 


■39 


FE 


00 


35 


06ES 


IE 


20 


83 


FE 


00 


ri0 


FE 


F0 


06F0 


Efl 


£0 


EB 


FD 


00 


R9 


05 


35 


06F3 


IE 


20 


S3 


FE 


00 


D0 


FE 


F0 
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0700 DC 20 CF FF C9 0D F0 07 

0709 £0 ED FD 00 85 01 S€ m 

0710 00 fiG 06 3fi flS 00 00 43 
0718 Fl5 01 4S fl5 02 4S fl5 0S 
0720 flb 04 rt4 05 40 78 ftfi 06 
0728 3fl 6C 02 C0 4C 4B FB 09 
0730 m 01 84 Bfi 84 B9 88 84 
073S E7 84 90 34 93 fl9 62 85 



0740 BC R3 40 85 EE 20 CF FF 
0743 C9 20 FG F9 C9 SD F6 1ft 
0750 C9 22 D0 D9 20 CF FF C9 
0753 22 F0 26 C9 03) F0 0B 91 
Q76^ BE E6 E7 C3 CS 10 F0 C5 
0768 D0 Eft ftS IC C9 4C D0 E2 
0770 R9 00 00 20 D5 FF 20 58 
0773 FE 00 fl5 90 29 10 D0 FO 



07S0 4C 50 FD 00 20 CF FF C9 
0788 0D F0 E2 C3 2C D0 F0 20 
0790 0D FE 00 29 0F F0 D3 C9 
0798 03 F0 Ffl 35 Eft 20 CF FF 
07ft0 C9 0D F0 Cfl C9 2C D0 E6 
07flS 20 ED FD 00 20 CF FF C^ 
07E0 2C D0 F4 20 FE FD m 35 
07E8 RE 86 ftF 20 CF FF C9 20 



e7C0 F0 F9 C9 0D D0 EC fl5 IC 
07C8 09 S3 D0 F8 20 E2 FE 06 
07D0 fl9 01 S5 E9 20 32 F6 4C 
07D8 50 FD 00 0D 20 20 20 50 
07E0 43 20 20 53 52 20 41 43 
07ES 20 58 52 20 59 52 20 53 
07F0 50 4D 52 58 47 3ft 3E 4C 
07F8 53 36 FD 00 £7 FE 00 23 



0300 FF 00 02 FF 00 F4 FE 00 

0S0S El FE 00 2D FF m 2D FF 

0810 00 IE FD €^0 ftft fifl fift Hfl 

0S18 fift flft fift ftft ftft ftft ftft ftft 

0S20 Fift ftft fift ftft ftft flft ftft ftft 

0823 fift ftft flft ftft ftft ftft ftft ftft 

0330 ftft flft ftft ftft ftft ftft flft ftft 

8333 ftft fift ftft ftft flft ftft flft ftft 



.? 

REflDV. 
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RACER 

DESCRIPTION 

This game has two programs making a whole. The object of 
the game is to steer the racing car through the course against 
such hazards as oncoming racing cars and oil slicks. The 
pace of the game is very fast to begin with and it becomes 
progressively harder. To score points the racer must pass 
through certain points on the course, a tricky procedure, as 
the oil slicks cause the racer to slide one point either side. 
The game Is over when either the oncoming cars are hit or 
the racer is steered off the edge of the course. 

EQUIPMENT REQUIRED 

Basic VIC-20 with no expansion. 

RUNNING THE PROGRAM 

Load and run part one and follow instructions . 

Steering is obtained using key L to go left and ';' to go right. 

Avoid all oil slicks and oncoming vehicles. 

PROGRAM STRUCTURE 

The lines of most interest are as follows: 

Part One: 

40 Limit top of string space to protect characters 

50 Black screen 

70-90 Move character generator 

100 Set graphics mode 

120-140 Pause until instructions are read 

180-340 Set up graphics characters from data 

350-550 Character data 

560-640 Instructions 
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Part Two: 

40 Clear the screen and display title 

50-60 Arrays for track, cars and obstacles 

70-380 Main game routine 

390-440 Set up initial screen display 

490-570 Set up track and obstacles into arrays r$ and o$ 
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10 REM RfiCER 

2n REM **************************************** 

33 REM 

4(3 Puke 51.. 0: poke 52. .23 

59 POKE 36879.. S 

fc"Ci GOSUE 560 

70 FOR X=0TO511 

30 POKE 716S+X.FEEK<32768+X> 

90 NEXT 

100 P0KE;;6Se9.. 255 ■• POKE 2€BSe.PEEl«'3€.ZieeyOR 12S 

110 GOSUE 170 

120 PRINT" MRUH IT SPACE TO CONTIHUE" 

130 GETfl^-IFfli^O" "THEN130 

140 POKE 3fc":S65..24©:pQKE36S6fc',. 150 

i5f' PRINT "."HOW LOmD S^ RUN THE iflJIEXT PROGRflfl" 

lc.0 END 

lt'9 REM 

170 REM CHRRflCTER DflTR ENTERED 

171 REM 

130 READ y.-x^?i€&+y.-*s 

190 IF M<700O THEN RETURN 

200 RERL ft*:IFLEN<R*:-=8THEH260 

210 POKE X.. VflL(R*> 

22(^1 Fi"iRV=lT07 

230 READ fl:POKE X+Y.fl 

249 HE^^T 

250 GOTO 170 
260 OOSUB 310 
270 FORK=f^+lTOX+t: 
2S0 GOSUE 300; NEXT 
2-10 GOTO 170 

300 REflD fi-t- 

310 fl=0:FOR'T'=lTCS 

320 H=fl*2- ■:: MI r$ •: m^ v, !>="*">: he!-^:t 

330 pnKEX,.fl 
340 RETURN 

344 REM 

345 REM CHRRRCTER PRTfl 

346 REM 

350 DRTfl ..153 „ 255 .. 1 65 .. 60 . 65 .. 1 S9 .. 255 .■ 1 2? 

360 BRTR 27.. 129 ..255. 139 ..60. 69. 165.. 255. 153 

370 DATA 2S .. 255 .. 1 29 . 1 -99 .- 1 65 . 1 65 .- 1 S9 .. 1 29 .. 255 

330 DflTR 29 -.255. 255 -.255.. 255.. 255.. 255. 255. 255 

390 DATA 30.. 255.. 1 27.. 63.. 31 .• 15,. 7.. 3.. 1 

400 DRTR 31 .. 12S. 192.. 224. 240. 248- 252.. 254.. 255 

410 DRTR 33 ..255 -.254 .252. 245. 240. .224 ..192.123 

420 IiRTR 34. 1 . 3. 7. 15.. 31 ..63.. 127 ■ 255 

430 DRTR 35 .■ 240 . 1 92 . 1 3 1 .. 2 .- 2 . 1 3 1 .. 1 92 .. 24 3 

440 DRTR 36 .. O .- . 2 1 2 .. :54 .. S4 . 2 1 5 .• O .■ 

450 DRTfl 37 .■ 1 5 . 3 . 1 .. .. .. 1 29 ■ 3 ,■ .1 5 

460 DRTH 33 
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47i3 


DflTFl. . 


m ^T>*^ a m r 




486 


DflTfl. . 


***^^ . 


. 


49© 


riHTR.:*.*3t:.t-. 




506 


IifiTFi*. 


**T^">^» * 




51Q 


IifiTfl.*.;**.*. 




52V3 


mi ft. . 


**if*. ." 




536 


DfiTfi. . 


» * * ■ a » 




543 


EftTR. . 


V ** ■ ■ ■ 




550 


DflTfi - 


-35 




554 


REM 






555 


REM INSTRUCTIONS 




55e 


REM 






560 


PRINT' 


■rTRfiCER" 




570 


PRINT' 


1 II 




580 


PRIHT"J?5!JSE THE 'L' AND ^;"' 


530 


PRINT' 


'W<EVS TO STEER VOUR CfiR" 


600 


PRINT' 


'■'[•' RLONG fl 


RORB. HIT" 


€18 


PRINT' 


'W'S- TARGET;: 


• FOR POINTS" 


520 


PRINT' 


'MBUT BVOID HEAD OH" 


£30 


PRINT' 


')S]C0LLIt5IONS 


WITH ■'(»'"' 


€40 


RETURN 





REftDV. 
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Ivj REfl RRCER 2 

20 REM +****!*?**?t;****f3*^******H<*3K*sti****5ti=t;****:+;*f* 

33 REM 

40 PRIHT'-I^flCER" 

5i3 run y.,fi 

7Gi G0SLIE45Q 

Sf^' TiOSUES'^tS 

50 L=L-I : IFLTHEN120 

100 L=INT*;RHD<l;'*5;'-t-5 

1 le n^SGNai+INTCRNL'M ;'*:2>-l > 

1 20 I FT+l!> 1 0uRT+Ii<4THEHD=0 

ICQ T=T+D-P0KE SI.. 1 

140 POKE v.. 0- POKE V-F+G..4 

1 50 PR I UTTfiE ( T :■) R$ C 11+ 1 > 

160 IFRHri<i::'>CTHEH130 

170 PRIHTTflEa+2+RHIK3>.*?) "n"03;<RND<n:*3> 

1 S0 V=V+ C PEEK '." K > -21?- < PEEK < K ) =22 ) 

1 90 0=PEEKC'V::' ■ POKEV. 27 ■ PCKEV-P+Q.- 7 

200 POKE SI. .4 

210 IF O=0OR 0=52 THEN 2S0 

220 IF O<:>flSC';"a".UHEH240 

239 S=S+1 ;pRIHT"Ttia"S"^":C=C+.015 

240 IF O'C=34THEH270 

£50 I F0>=flSC (:■'&"> THEN 270 

266 POKE V..3S:V-V+IHT<RH2Cl)*3>-l:0=PEEK<V> 

270 GOTO 30 

280 IF 3>HTHENH=S 

290 FORJ^= 1 5T0 1 STEP- 1 ■ POKES 1 .. X 

300 P0KES2.. 1 2$+X*'; 1 5-X> ■ FORR= 1 TO50 MEXTfi • X 

310 PRINT" *CORE"S".. HI SCORE"H 

320 PRINT"ftHOTHER GO VVN"; 

330 POKE S 1.0 POKE S2..S 

340 GETfif- IFhli;="Y"THEHS0 

350 IF flf<>"H"THEN340 

360 PRINT'^T 

370 POKE 36369,240: POKE 36366.- ISO 

3S0 END 

350 PRIHT"n" 

400 T=10:C=.l ; 0=29: 3=0 

410 V=7S45 : L=3 : Ii=S 

420 F0RX=1 TO 22:PRIHT, "IM"RfCl>:NEXT 

430 POKE 56377.. 123 

440 RETURN 

450 REM 

460 REM 

470 REM SET UP VfiRIfiBLES 

4S0 REM 

450 F CI :;E36S69 . 255 : P0KE36866 . PEEK C 36366 ;> OR 1 23 

500 P==7630 : Q=3S408 

510 K=1S>7 :H=0 •£1=36:57:3 •32-36377 
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520 RESTORE , _ ^, 

579 RETURN 
PFflnv. 
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CAR RACE 

DESCRIPTION 

This game is a computerised version of the Grand Prix. The 
player has five choices of internationally famous racing 
drivers to emulate. Having chosen your driver the 
players — you and the computer — line up at the starting 
point. The display is an attractive picture of a tree-lined track. 
The course runs over five laps and should the player steer off 
the course he hits the trees but is still able to continue 
because the player is playing against time; the VIC player is 
programmed to complete the course precisely. 

EQUIPMENT REQUIRED 

Basic VIC-20 with 3K expansion. 

RUNNING THE PROGRAM 

Load the Game and type run. Steering is obtained using a 
group of keys on the left hand side of the keyboard. These 
are as follows: 

Q W E 
A S D 
2 X C 

These directions are based around the central position of 'S', 
corresponding to the points compass. 

PROGRAM STRUCTURE 

The lines of most interest in this program are as follows: 
40-80 Decide on video map 

100-490 Instructions 
500-1000 Main game routine 
1020 1250 Display the track 
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10 RCr-i cm RRCE 

30 REM 

40 VR=PuEK<o-4S>*256 

5y REM 

53 REtl ifl3TRUCTI0N3 

73 Rti.fl 

c:0 XR:=3S400 IFVRC?6SeTHEHKR-37SS3 

"i" '"■■•■j.'rr "■i^"' '''t -" I "• 



PfiJ.-T^"-; 



;s?;s7*i6+7+s 



liO rRiHT"S^ **;* -* — ♦-" m* 

liQ PRIN7M;t?.'i:iU Hr.VE TO LRIVE '.'OURS 

no PrJKT" CiiR rtP:Oli.SIi THE ;r?,ck", 

14Ci PRIHr":43iHE X-^- CAR 14ILL EE 

150 PRIHT^' RflCIHG fiGRItJJT 'r'OU. 

ioO PRINT" 'f'CiL! WILL CRmSH IF 

iro PRINT" VOU HIT THE SIDES 0F'=; 

136 PRINT" THE TRACK OR IF 

183 PRIirr" VOU HIT THE a%- CSR." 

13L1 PRINT" I HE RACE IS OVER 5 LfiPSIdsW" 

20ti FRIHT" HIT ANV KCi'y- 

2 1 CCTft* : I FF|$<> " " THEH250 

229 FOR I = 1 TO2O0 : NEXT 

23Q PRINT" tMIT FiN'/ KEY.T' 

246 FOR I = 1 TO20C1 ■ NEXT - GOT02eO 

25G PRI NT" n" • P0K£3bSt9.. 246 ■• PR IHT'-.TWOU STEER WI TH = ;«« 

260 PRINT" Q W E 

270 PRINT"»I 'J,- 

2S0 FRIHT" Fl-S-D 

2S'G PRINT" ..'i\ 

-'i00 FRII^iT" ^ ^^ C 

316 PRIHT'-WfllCFiND^THE sEHIFTS 70 00 

320 PRINT" Fh'STER.S] 

336 PRINT";eia»a C- IS VOUR CfiR 

S40 PRINT"i!S»fl ^- IS THE V'lCKS 

35S PRINT" HIT 'n\\W KcVH 

350 OEThI: . IFh*<>" "THEN400 

370 FOR I = 1 TO20Q ■■ HE^-T 

3S0 PRINT" iHU FINV iCEVH 

390 FOR I = 1 T02S0 ; NEXT : GOTO350 

400 PRINT":i»fel-JHO WILL VOU SE? 

410 PR I NT". Ill 

420 PRINT"Wi!ll. NIKI LfiUDfH 

436 PRIHT"SE. fiLFiN PROST 

440 PRINT ">13. JftNES HUNT 

450 PRINT ":?)4. KEKE RCSEERG 

4b8 PRINT":e5. STORMIir NOftmH 

470 PRIIJT";!l?l-JHlCH ONE ? '; 

4SVJ P0KE204/ti 

4-jG CEThf • IFhi= " " THEN430 

4::''4 KEM 
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495 REM PLflV THE URr'lE 

436 REM 

590 Fi:iKE204.1 : PR I NT" BE"; 

5lM SL=VflL(flJ> ■ IFSL>5iJRSL<lTHEH4S0 

520 DIMN(23>..Ii(23> 

530 riRTH3.2.. 3.. 1 > 2.. 4. 3. 7.. 3. 8. I..?.. 2.4.1. 1,.3..2.3 

540 ERTfll . 1 .■ 4.. 1 .. 7.. i 2.. 3,. 1 , 3.. 3.. 3.. 1 > S- 2. € 

53iJ DRTfil .- 3. 3. 2.. i . 3.. 3.. 3.. 2,. 3.. 1 . S.. 2.. 3.. 2.£;.. 2.- 3.. 7.. 2 

560 FOR I = 1 T027 : REflDN C I > ,. D ( I > ■ NEXT 

570 IiFiThl21 .. 22.. 23. -1 . 9.. 1 .■ -23.. -22. -21 

530 F0RI = lTn9:RERIJria) ^HEKT 

530 riRTR"Z".. ";^".. "C". "R". "S".. "D".. "i:j".. "N".. "E" 

600 FOR I = 1 103 : RERfiT* ■: I > ■ NEXT 

F. 1 VP=^ VR+253 : l:P=VP+2 : fjOSUE 1 G20 

620 GETEt : IFEJ= " " THEN62Q 

630 GETflf : I FH^^ " " THENR^=B* 

640 B$^ht- ■■ POKEVK. ■ POKEVP. 32 

ei'd IFR$=""THEN790 

660 FOR I = 1103 

670 IF^H3C<Mf)RNl!l27)=fl3C(Ti:(I>)THEUfl4:=3TR*'::i;' : 1 = 10 

6S0 NEXT 

630 IFH3C(Hit:J>12STHENRi=CHR|:i;HSC'::R*;3-12S> 

700 V P= T P+M ■:: VRL ■:: hi- > > 

710 I FPEEK ':; VP :.■ =320RPEEK (. V P ) =36THEN7S9 

720 I FNOT '■ PEEK ( VP ::■ =6 1 RNEM < VRL ( R* > ;0 9 :^ THEN739 

725 VL='tL+1 ■ VP=VP+22 : GOTu760 

739 IFPEEKaVP>=S3THENGG3UE350 ■ GOTO760 

749 Ou3IjE350 

759 Bi-" " : TP=TP-M'::VRL<Ft3^; > ■?]$=" " 

760 POKE V P.. SI 

779 VK=VP-VR+KR ; POKEVK.. 2 

7;E;0 P-F: I h'T " yJ-MciM-InMnlPlWtlHlPlfKIfiWfKW' / 

735 PKlNT"Ji!i;5B!J^G5&3:;:SlaSJEsEi5:!i5E*i|;3"VL 

739 PRINT "(!E^^E^iJ^SJ;5SS3SJS^iEi^£^^SM.L 

300 I FTG= 1 THE}iTG=S : GOTC630 

310 IFRNIKTI ><:SL*. 03THENGO3IJE330 

329 IFCS^lRNESL=5RNERNl!ai ::■>. 2THENGn3ljE330 

330 IFPEEK(654>=1THENTG=1 : GOTOSSe 
340 FORIJ^ 1 TO 1 90 : f-IEXT 

■P,F,ij. r;ri:-:lJE@30 

360 IFVL=5tHENl2b0 

87 9 IFCL=5THEN12b9 

;-;:-; nOTn630 

830 11:3=0 ■ IFC=0THENG=G+1 ;C=N';u> : Ii=ri(ri';GV:' 

300 IFN';G>>5THENCS=1 

310 IFG<:>2STHEH33y 

520 G=0 ■■ CL=CL+1 ■ CP=7341 : C=0 ■ PGK'ECP-22.. €■! ■ GOTOS30 

330 C=C-1 : PQKECK. 9 ■ PuKECP. 32 ■ CP=CP+D ■ PuKECP.. 31 

340 CK=CP-VR+KR : POKECK. 6 : RETURN 

559 F0RI = 1TU3 : R=FEEK(VF+f'1'; I > ;.' 

969 IFRvl2&THENR=R+123 ■ PuKEVP^ f1'' I > . R 

379 he;^t 
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Sm F0RI=9T01STEP-i :R-PE£K<VF+Ma)> 
?3e I FR> 1 £STHEHR=R- I £3 : FGKEVP+M ( U . R 
1090 HEKT:RETURH 

EUD 

REM 

REM DISPLflV THE TRACK 

REM 

F0KE36S79. ie+S+1 



1010 

1014 
1015 
1016 

1020 

1030 

1040 
1050 

1960 

1070 

1 OS0 

1090 
1100 
1110 

1120 
1130 
1140 
1150 
1160 
1170 
1180 
1130 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
RERDV. 
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PRIHT" 
PRINT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRINT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRINT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRIHT" 
PRINT" 
PRIHT" 
PRIHT" 
RETURN 
P0KE36873, 



a 
■ 
■ 

■ 
a 
a 
■ 
a 



mm I 
SM*t»a\ 



I 
I 
I 

'■mm/ 



, .. 

I I " 

I I " 

I I " 

I I " 



[ [ 



GM*a\ 



[ I m» 

I I fi^a 

B«>B\ ( 1 \_ 
ma I I max 

xSSf"f*»"f'B\ 

.■■■|K'*^'t"f'*t**f*B 
y-ma J wftPS 



I 

^ I EH-B 

JM^f-f+l I [ " 

\iW'4**f'a I t " 

\mu i I " 

SH'B I ( " 

mu [ I " 

I fiM'B I I " 



I I 



I " 

ym^" 

m^y 
3»'^a" 



73, 2?: PRINT": 
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TAPE SEARCH 

DESCRIPTION 

This program is a utility to enable a fast forward search of a 
program tape. It will not recognise sequential files. The pro- 
gram is set up for ten programs but a larger number will do. 

EQUIPMENT REQUIRED 

Basic VIC 20. 

RUNNING THE PROGRAM 

Once typed in, the array FL$ is set up with the names of the 
programs on the tape. Type run and a directory of the tape is 
displayed on the screen from the array FL$. Hitting the cor- 
respondence key will tell the computer which program is re- 
quired. The program will then ensure that the stop key has 
been pressed before requesting that the fast forward key be 
pressed. After that, all you have to do is wait until you are 
told to press the stop key and then the tape is in the correct 
position to load the requested file. Note that the tape must be 
rewound or set to the position of the first file in FL$. 

PROGRAM STRUCTURE 

The lines of interest in this program are as follows. 
20-110 Set up the directory. 

140-150 Check that no keys are depressed on the tape 

deck. 
160-310 Print directory and choose program. 
320-380 Searching for the file. 
390-455 Tape is now ready to load from. 
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20 FL*a> = " I" 

30 FLt<.2>~" \" 

40 FL*<.:;> = " I" 

50 FL4;':"4;=" I" 

oG FL$^;5> = " . I" 

?Q ?Li<6> = " I" 

30 FL-4;C?> = " I" 

33 FLf<3>=" I" 

100 FL*0; = " I" 

lie FLJ<10>-" r 

140 F-RIfJT":7?lBftPRESS STOP ON TflF'E#I" 

150 IF PEEK;(192?O0THEN15O 

150 PRINT"T 

iro pr;iHT" m iiirectorv ** " 

ISO PFsIHT" 

130 FQ?;Q^1T022:FRIHT"_".: : NEXT: PRINT" " 

210 FRINT"! FILE I DESCRIPTION i ■' 

230 rORQ=lT022?RlNT"~". HE>iT?RINT" " 

240 FORQ=lTCilu: PRINT" I "CHR$iC'+'24>; 

250 PRINT" ! ";FLSCQ>-NEKT 

2^0 F0RC!=iT022\PRIHT"~" ; ■ NEXT ■ FRIHT 

270 PRINT";i!l-!HIC.H FILE DC VOU UftNT?" 

230 OETC$ ■ I FC$= " " THEN2&0 

290 I FC$< "-a " ORC$>"L " THEN280 

300 iS=f\SC<CS>-64-fl=BS 

320 PRINT":i!ftlFiEEfiRCHIHG FOR FILE "i 

325 PRIMTC^f PRINT "J!W" 

330 PRINT "HfiflEIi ";FLf<rl> 

348 PRIKT":«fie8teF-RE3£ FFiST FORWARD OH >]"; 

345 PRINT" TfiPE" 

353 IF PEEKC37i3?)Ot2THEN35S 

3S0 FT=TI+FT*t.O 

3?0 IF TI^IFT THEN 370 

380 POKE 152,52 POKE 3714S.241 

3^0 PRINT":i!l!Sli!l8l?Ir!FRESS STOP ON TFiPE #1" 

400 IF PEEKaSS^OOTHEM 400 

405 POKE 37143.. 14 

410 PRINT'-nenKITflPE IS NOW IN CORRECTS"; 

415 PRINT" POSITION FOR" 

426 PRINT "FILE ";C#;". ";FL:I';FI> 

440 PRINT";«Wa VOU CliH NOW LORD »"; 

4<5 PRINT" OR SAVE " 

450 PR I NT "S THIS PROGRflM" 

455 END 

REflDV. 
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APPENDIX TO 
SPECIAL PRINT CHARACTERS 



KEYS TO PRESS 


CTRL 


(-1 


CTRL 


2 


CTRL 


3 


CTRL 


S 

4 


CTRL 


% 
5 


CTRL 


E 


0,..] 


') 


1 CTRL 


8 


CTRL 


) 
9 


CTRL 


n 


1 SHIFT 


CLR 
HOME 




CraRJ 


SHIFT 


CRSR 




CRSR 


SHIFT 


CBSR 




CI M 
tlllMI 



HOW IT 
APPEARS IN PRINT 


DEFINITION 


■ 


BLACK 




4 


WHITE 


a 


RED 


K 


CYAN 


m 


PURPLE 


D 


GREEN 


□ 


BLUE 


m 


YELLOW 


m 


REVERSE ON 


B 


REVERSE OFF 


□ 


CLEAR THE 


SCREEN AND 
HOME 


@ 


CURSOR DOWN 


n 


CURSOR UP 


B 


CURSOR RIGHT 


n 


CURSOR LEFT 


r~ 


a 


HOME 
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INDEX 

BREAKOUT 6 

This program is a well adapted version of the popular 
arcade game of the same name. 

FIND THE WORD 11 

A recognition test— useful for teaching and learning. 

SPACE PIRATES 17 

An amusing game in a race against time, 

VIC VIC 22 

A program demonstrating the use of the control registers. 

BIRDS DEMO 25 

An attractive demo for user defined characters. 

RHINO 30 

An interesting game requiring the user to use logic to 
escape through the jungle. 

DO-RAY-ME 39 

A program to enable the user to use the VlC-20 keyboard 
as a musical keyboard. 

SOUND EFFECTS 43 

A program for use on its own or in a program written 
by the user. 

ARROW 47 

An amusing game which tests the user's co-ordination. 

TANK-V-UFO 52 

A simple game with the user taking the part of the tank. 

LANDMINE 58 

A maze game with increasing difficulty for the user. 

SPACEWAR 65 

Two programs making an interesting and intriguing game 
for the user. 

JOYSTICK TEST 72 

A useful routine for the user to incorporate in 
his own programs. 

DEFINE KEYS 74 

Enables the user to define the eight functions keys 
on the keyboard. 
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U.S.A. SONG 77 

A demonstration program using the \/IC-20 sound 
output to play a tune. 

DIGICLOCK 82 

A program demonstrating the time keeping facility of 
the VIC-20. 

LEAP FROG 85 

A puzzle for the mathematically minded. 

RUBIK'S CUBE 92 

An absorbing version of Mr. Rubik's addictive game. 

BOSS PUZZLE 97 

Tests the mental agility of the user to re-arrange a 
mixed up block of numbers into a sequential pattern. 

SKETCHING 1 102 

This program enables the user to produce displays 
using the Commodore graphics symbols. 

SKETCHING 2 106 

This program provides the user with an 8 x 8 grid to 
sketch In high resolution using the joystick. 

KALEIDOSCOPE 110 

Creates a colourful and attractive changing pattern 
on the screen. 

HI-RES DEMO 113 

A program to demonstrate the high resolution capabilities 
of the VIC-20 when using the Super Expander Cartridge. 

BANDIT 116 

This game is a highly addictive version of the one armed 
bandit pub game. 

MOON LANDER 122 

A realistic game/test for the would be astronauts. 

CIRCLE DEMO 127 

A program to demonstrate the use of the character 
generator when displaying circles in high resolution. 

Hl-RESPLOT 130 

Enables the user to plot points in high resolution. 

HANGMAN 133 

An intelligent version of the childrens game, would be; usufui 
as a teachinq/learnint) .lid. 
^8G 



GOMOKO 141 

A test of skill playing the old oriental game of Gomoko 
(or Go as it Is sometinnes known I. 

SUPERMIND 147 

A version of Mastermind adapted for the VIC-20. 
CONQUEST 153 

A tale of Do and Dare as the Knights defend their castle. 
HI-RES AID 159 

A useful program to design graphics characters. 

TINYMON 163 

A machine code monitor for the VIC-20. 

RACER 170 

An exciting and intricate racing game on a vertical plane. 

CAR RACE 176 

The Grand Prix of video racing. 

TAPE SEARCH WO 

Fast forward tape search program. 

APPENDIX TO SPECIAL PRINT CHARACTERS 1 83 

Useful for recognizing the special characters found in PRINT 
statements. 
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VICGAAAES 

NKK HAMPSHrRE 

A col^eclion of 36 eKciMng ond useful programs for your Commodore 
VJC-20 microcomputer. Features orcode-slylc gomes, strotegy games, 
ond edycQlrortol word gomes, Chollenge your driving skifis on your own 
Grand Prise foce trocfc- fight o wor v^ifh spc3ce piroies; rroneuver your 
way tKrough o moze of londmrnes; solve the Rub^k's cube {if you con!); 
create your own coiorfyl imoge* and music fo go wHh them; find your 
way out of the jungle: improve your children's (or yourownt) A|S«llino 
and vocabulary skilts; plus much, m.ui;h morel 

Sound, music, utilities, ond graphics progroms that ore fun, eosy lo 
play, ond m$lt^ctioriol for every VlC-20 user. 

OTHER BOOKS BY MCK HAMPSHIRE ... 

VIC RfVEALED 

All Jnvoluoble ond comprehensive inside Eook at the hordware copabili- 
ties of the Commodore VIC -20. Expond your ossembly tonguage pro- 
gromming skilU ond leorn advanced pragromming techniques. The 
outhor uncovers the VtC^s out^rondtng Fea1ure& such os the progrom- 
tniog power given the limited mcrTiOry, *ht s^vpcrior gome and graphics 
l&chnology in the vFdeo inter face chip, ond unique \/0 copobilities. The 
complete instruction set for the 6502 CPU is olso disclosed, 05 well os 
options for using machine-code subroutines m VIC BASIC progroms. 
# 1058-3* pgp^r^ 272 poges, 

VIC"- eiMPHIG 

A doiilmg disploy of grophks in 38 complete programs for the Commo- 
dore VIC-20 microcomputer. The author cleorly exploms Ihe theory of 
high-resolulton-grophics plotting and the multicolor mode of the VI C. 
Applicotions of these g:rophrcs displays range from ort (o gomes to 
educotionoJ simulali^ons in math, science, ond business. All program 
i stings hove been lesied ond ore onnototed for eosy reference and 
nodi fi col ion. #1057-5, poper, 192 poges. 



HAY DEN BOOK COMPANY, INC, 
RocheUe Park, New Jersey 

ISBN 0-610-^40^^5 



